TEdit erste Buchstabe immer Groß schreiben...

[hoika]

Hallo,

kleine Ergänzung zum Code oben.

Delphi-Quellcode:

procedure TForm1.CommonEditChange(theEdit: TEdit);
var
  OldStart : Integer;
  TempProc: procedure (Sender: TObject) of object;
begin
  with theEdit do
  begin
    if Text <> '' then 
    begin
      TempProc:= theEdit.OnChange;
      try
        OnChange := NIL;
        OldStart := SelStart;
        Text := UpperCase(Copy(Text,1,1))+LowerCase(Copy(Text,2,Length(Text)));
        SelStart := OldStart;
      finally
        OnChange := TempProc;
      end;
    end;
  end;
end;

Somit kann die Method für mehrere Editoren benutzen.


Heiko