procedure TForm1.Button3Click(Sender: TObject);
begin
Sender.Free;
end;
/*出錯，用代碼建立的有問題，設計時放上去沒有問題，郁悶(誰能告訴我為什麼),
因為Click執行完事件後還有一些後續工作，通路Sender一些資源時av，因為sender.free了，建議使用
procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK; 來代替DblClick
procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;來代替Click
*/
procedure TForm1.FormCreate(Sender: TObject);
with TButton.Create(Panel1) do
begin
Parent := Panel1;
Top := 10;
Left := 10;
OnClick := Button3Click;
end;
end;