How am i going to identified which MenuItem that i click at then ?? Let's say
in your example:
MyPopUpItems[i].OnClick := MiMenuItemClick;
How am i goin to get the value [i] cos there's 4 items in the Popupmenu .
Vahan Yoghoudjian <[EMAIL PROTECTED]> wrote:
You should write a procedure on what you want to do and assign it to the
OnClick event of that menu item
For example in your case
MyPopUpItems[i].OnClick := MiMenuItemClick;
procedure TForm1.MiMenuItemClick(Sender: TObject);
begin
// Your codes will go here
end;
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] Behalf
Of soonhuat ong
Sent: Monday, July 18, 2005 11:13 AM
To: [email protected]
Subject: [delphi-en] PopupMenu Events
procedure TForm1.BtnCreateMenuClick(Sender: TObject);
var
i: Integer;
MyPopUpItems: array[0..3] of TMenuItem;
MyPopUpItems: array[0..3] of TMenuItem;
MyPopUpMenu : TMyPopUpMenu;
begin
for i := 0 to 3 do begin
MyPopUpItems[i] := TMenuItem.Create(Self);
MyPopUpItems[i].Caption := 'New item ' + IntToStr(i);
MyPopUpMenu.Items.Add(MyPopUpItems[i]);
end;
MyPopUpMenu.Popup;
end;
The code above will create 3 menuitems into myPopUpMenu and display the menu
item. Now how am i goin to write the events/action when the users click on
either one of the menu item ? I know this can be done easily by using the
TPopupMenu component, but for certain reason i need to code it manually. Any
idea? Thanks in advance.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
----------------------------------------------------------------------------
----
YAHOO! GROUPS LINKS
a.. Visit your group "delphi-en" on the web.
b.. To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
c.. Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
----------------------------------------------------------------------------
----
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
---------------------------------
YAHOO! GROUPS LINKS
Visit your group "delphi-en" on the web.
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
[Non-text portions of this message have been removed]
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
