[Andorra] AdComponents kleine Verbesserung?

[chaoslion]

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;

[igel457]

Hallo,

ich habe deinen Vorschlag übernommen. Hört sich nach einer sinnvollen Verbesserung an.

Vielen Dank,
Andreas