combobox + Uppercase

[Robert_G]

Ich würde es in den OnChange-Handler schreiben:

Delphi-Quellcode:

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

Gibt es eigentlich noch eine andere Möglichkeit einen Handler kurz auszuschalten?