Editeingabe und der erste Buchstabe immer Groß

[DeddyH]

Mir fallen 2 Möglichkeiten ein.
OnChange:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var s: string;
begin
  if Length(Edit1.Text) > 0 then
    begin
      s := Edit1.Text;
      s[1] := AnsiUpperCase(s)[1];
      Edit1.Text := s;
      Edit1.SelStart := Length(Edit1.Text);
    end;
end;

OnKeyPress:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Edit1.Text = '') or (Edit1.SelLength > 0) and (Edit1.SelStart = 0) then
    Key := AnsiUpperCase(Key)[1];
end;