Combobox ItemIndex=-1; Text ändern im Event

[Lannes]

Hallo,

in der Hoffnung beim überfliegen der Beiträge nicht etwas übersehen zu haben, setz doch das Event temporär auf nil:

Delphi-Quellcode:

procedure TForm1.CoBo_VersionChange(Sender: TObject); 
begin 
  if MessageDlg('Soll die Konvertierung durchgeführt werden?', mtConfirmation, 
    [mbyes, mbCancel], 0)=mrYes 
  then 
  begin 
    ...Konvertierung... 
  end else 
  begin
    CoBo_Version.OnChange := nil;                  //<---
    CoBo_Version.ItemIndex :=-1; 
    CoBo_Version.Text:='Test';
    CoBo_Version.OnChange := CoBo_VersionChange;   //<---
  end; 
end;