我在一個form裡面，new 數個button，每個button有一個共同click 事件--btnClick

今天我要在按下button後自殺，就是按下哪個按鈕後，那個button就被delete掉...
但我發現我是透過按鈕本身btnclick去按的，所以他的active control在它上面，自殺就會產生錯誤訊息...

我測試在delete之前，setfocus到其他元件~就不會有錯誤訊息..或者是用另一個button去delete其他按鈕就沒事...
但這兩個作法並不是我要的正解...不知道各位有何建議???

(1)
當叫用的procedure的返回點被釋放掉了,
你覺得程式該如何反應???

(2)
你可以用PostMessage()的方式,通知這個
Button以外的TWinControl來負責釋放,
因為PostMessage()是不會等待返回的.

以下程式碼供你參考(in Delphi)

[code delphi]
unit fMain;

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

const
WM_PLEASE_KILL_ME = WM_USER 1000;

type

TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
protected
procedure WMPleaseKillMe(var Message: TMessage); message WM_PLEASE_KILL_ME;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
ObjectToKill: Integer;
begin
ObjectToKill := Integer(Pointer(Sender));
PostMessage(Handle,WM_PLEASE_KILL_ME,ObjectToKill,0);
end;

procedure TForm1.WMPleaseKillMe(var Message: TMessage);
var
ObjectToKill: TObject;
begin
ObjectToKill := TObject(Pointer(Message.WParam));
if ObjectToKill <> nil then
ObjectToKill.Free;
end;

end.
[/code]


^_^

我也十分認同前輩的想法
也試過了前輩的方法，可以正常執行
但有一問則是
為何
[code delphi]
procedure TForm1.Button3Click(Sender: TObject);
begin
sender.Free;
end;
[/code]

卻能正常執行呢??

------
Just Do It
-------------------------
其實男生不是真的喜歡你不減肥，而是喜歡你愛吃還不肥；也不是真的喜歡你不化妝，而是喜歡你素顏也好看；也不是真的喜歡你瘦，而是喜歡你瘦卻有胸；也不是真喜歡你獨立，而是他忙的時候別煩他。女孩子，太認真你就輸了。