Delphi-PRAXiS - Delphi [Andorra] AdComponents kleine Verbesserung?

Huhu Igel

mir is heut nen Fehler bei den AdComponents, explizit mit dem AdButton passiert.
Hab nen die Gui um nen kleinen Scriptinterpreter erweitert, in welchem ich beim Button-click das das aktuelle gui löschen lassen kann.
Er bringt aber ne exception, beim Button da dieser erst den OnClick ausführt und dann den Skinzustand ändert,
da der Buton aber gelöscht ist - boom.

Also wäre es nich besser erst alle Anderungen zu machen, dann die On..... events auszuführen?

alt

Delphi-Quellcode:

			function TAdButton.DoMouseDown(Button: TAdMouseButton; Shift: TAdShiftState; X,

  Y: Integer):boolean;

begin

 inherited DoMouseDown(Button,Shift,X,Y);

 if Button = abLeft then

    FState := bsDown;

  GetStateNr();

  result := True;

end;

>> neu

Delphi-Quellcode:

			function TAdButton.DoMouseDown(Button: TAdMouseButton; Shift: TAdShiftState; X,

  Y: Integer):boolean;

begin

  if Button = abLeft then

    FState := bsDown;

  GetStateNr();

  result := inherited DoMouseDown(Button,Shift,X,Y);

end;