combobox + Uppercase

[Robert_G]

So müsste es aber funktionieren.

Delphi-Quellcode:

Procedure TForm1.ComboBoxChange(Sender: TObject);
Var
  EventCache: TNotifyEvent;
  PrevSelStart: Integer;
Begin
  With Sender As TComboBox Do
  Begin
    EventCache := OnChange;
    OnChange := Nil;
    PrevSelStart := SelStart;
    Text := UpperCase(Copy(Text, 1, 1)) + LowerCase(Copy(Text, 2, Length(Text)));
    SelStart := PrevSelStart;
    OnChange := EventCache;
  End;
End;

(Nächstes Mal ausprobieren )