我有好幾個的 ListBox A , B , C

另外有一個 popupmenuA , popupmenuA 有一個delete 的選項

我把幾個ListBox A , B , C 的 popupmenu option 都 assign 到 popupmenuA

想請問大大要怎樣知道那一個ListBox 呼叫 delete 呢

謝謝

請參考以下討論：

http://220.134.61.12/board.php?cid=30&fid=71&tid=83490

但是將程式碼移到 OnContextPopup 事件中即可！

Fishman

謝謝大大的回答

我看過你給我的link

以下是的code:

程式到紅色的那一句就現 EInvalid Cast , Invalid Class typecast

請問是我那裡做錯了嗎? 謝謝

procedure TFrmEmailHandler.Delete1Click(Sender: TObject);
var
fLast : TControl;
begin
fLast := Sender as TControl;
if fLast = AttachmentListBox then
begin
sleep(1);
end else
begin
sleep(1);
end;

end;

知道怎麼做了

謝謝大大

但不能直接從popupmenu 的event 取sender , 不知道為什麼?