combobox - abort - Absturz nach 26 Clicks...

[arturx]

Windows, Lazarus 9,28,2 beta
Ich möchte einer combobox ein individualisiertes lookup-Formular unterjubeln.
Also unterbreche ich das eingebaute dropdown per abort innerhalb ondropdown.
Nun klicke ich immer wieder auf den dropdownbutton :
Das klappt genau 26 x, dann bleibt das Programm hängen (die letzte sichtbare Zahl ist 26) :

Code: Alles auswählen

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    procedure ComboBox1DropDown(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
     vcount : integer; //Zähler für Form1.caption
  end; 
 var  Form1: TForm1; 
 
implementation
 
procedure TForm1.ComboBox1DropDown(Sender: TObject);
    begin inc(vcount);
          caption := inttostr(vcount); // dient nur zur Sichbarmachung
 
          abort; // ! ! ! ! !
   end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin  vcount := 0;
end;
 
initialization
  {$I utestabortclicks.lrs}
end.

Ist das ein Lazarus Problem oder liegt das an windows ?
Was muss ich einstellen / ändern, um das Nirwana zu verhindern ?

Ich bin jetzt erstmal einige Tage nicht erreichbar, also bitte nicht sauer sein wegen verspäteter Antworten....

[theo]

Das abort ist imho gar nicht schön. Soll es das dropdown verhindern?
Unter GTK2 tut es das jedenfalls nicht.
Das wäre mir zu abenteuerlich.

[arturx]

Das abort ist imho gar nicht schön. Soll es das dropdown verhindern?

Ja, das ist das Ziel.
Ich brauche nur die Erscheinung (mit angedocketem button) und die edit- (bzw dbedit-) -Funktionalität