Delphi

Вопрос

Как контрол может сам себя разрушить?

Ответ

TMyWinControl = class(TWinControl)
private
procedure WMuser1(var msg: TMessage); message WM_USER+1;
    …
public
    procedure Release;
    …
end;

procedure TMyWinControl.WMuser1;
begin
    Free;
end;

procedure TMyWinControl.Release;
begin
    PostMessage(Handle, WM_USER+1, 0, 0);
end;

Из конференции Delphi