Mega Code Archive
Convert letters of an Editbox to uppercase
<![CDATA[
Title: convert letters of an Editbox to uppercase?
{
Converts the first letter of an EditBox to UpperCase:
Wandelte jeweils das erste Zeichen in einer Editbox in
einen Grossbuchstaben um.
}
procedure TForm1.Edit1Change(Sender: TObject);
var
OldStart: Integer;
begin
with Edit1 do
if Text '' then
begin
OnChange := nil;
OldStart := SelStart;
Selstart := 0;
Sellength := 1;
Seltext := AnsiUpperCase(Text[1]);
SelStart := OldStart;
OnChange := Edit1Change;
end;
end;
{
To convert the fist three letters to uppercase you could write:
Um die ersten drei Zeichen jeweils in Grossbuchstaben anzuzeigen:
}
Selstart := 0;
SelLength := 3;
SelText := AnsiUpperCase(Copy(Text, 1, 3));
]]>