Zniszcz obiekt podczas zdarzenia wywołanego przez obiekt

Question

Mam przycisk. Jego zdarzenie OnClick wywołuje procedurę, która niszczy przycisk, ale wtedy "wątek" chce powrócić do zdarzenia OnClick i otrzymuję naruszenie dostępu.

Jestem całkowicie zakłopotany!

Answer 1

Musisz zniszczyć przycisk po wykonaniu całego kodu. Standardowy sposób to zrobić, publikując w formularzu wiadomość zdefiniowaną przez użytkownika i podając formularz, który ją zinterpretuje. Na przykład:

unit Unit1; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, StdCtrls; 

const 
    WM_KILLCONTROL = WM_USER + 1; 

type 

    TForm1 = class(TForm) 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    procedure KillControl(var message: TMessage); message WM_KILLCONTROL; 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

{ TForm1 } 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    PostMessage(self.Handle, WM_KILLCONTROL, 0, integer(Button1)) 
end; 

procedure TForm1.KillControl(var message: TMessage); 
var 
    control: TControl; 
begin 
    control := TObject(message.LParam) as TControl; 
    assert(control.Owner = self); 
    control.Free; 
end; 

end. 

To działa, ponieważ wiadomość zostanie wprowadzony do systemu Windows Message Queue i nie wyjdzie, dopóki wszystko przed nim (w tym wiadomości kliknięcie, że przycisk jest obecnie w odpowiedzi na) zakończy przetwarzanie.

Answer 2

Zamiast tego można po prostu włączyć licznik czasu w zdarzeniu OnClick, a następnie najpierw zapisać zdarzenie czasomierza, aby wyłączyć licznik czasu, a następnie wywołać procedurę, którą aktualnie wywołujesz ze zdarzenia OnClick. Ustaw timer wyłączony i na krótki czas.