Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2011-04

Menu Click Event in Runtime

4 messages · 3 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Rogério Martins

Hi !

How do i make an assignment between a TMenuItem.OnClick event and the
procedure xyz (Sender: TObject)  at runtime ?

In Delphi i just do:

menuItem.OnClick := MenuClick;
where procedure declaration is procedure MenuClick(Sender: TObject);

In lazarus, this code does not compile.

How do i correct this ?
Thanks

The Ubuntu Counter Project - user number # 33192<http://ubuntucounter.geekosophical.net> -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20110429/bd98cd0d/attachment.html>

Reply by email

Marcos Douglas
to Rogério Martins

2011/4/29 Rog?rio Martins :

Show quoted text 13 lines
Hi ! How do i make an assignment between a TMenuItem.OnClick event and the procedure xyz (Sender: TObject)? at runtime ? In Delphi i just do: menuItem.OnClick := MenuClick; where procedure declaration is procedure MenuClick(Sender: TObject); In lazarus, this code does not compile. How do i correct this ?
Use:
menuItem.OnClick := @MenuClick;

Marcos Douglas

Reply by email

Rogério Martins
to Marcos Douglas

It worked

Thanks!

2011/4/29 Marcos Douglas

Show quoted text 26 lines
2011/4/29 Rog?rio Martins : > Hi ! > > How do i make an assignment between a TMenuItem.OnClick event and the > procedure xyz (Sender: TObject) at runtime ? > > In Delphi i just do: > > menuItem.OnClick := MenuClick; > where procedure declaration is procedure MenuClick(Sender: TObject); > > In lazarus, this code does not compile. > > How do i correct this ? Use: menuItem.OnClick := @MenuClick; Marcos Douglas -- _______________________________________________ Lazarus mailing list http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
The Ubuntu Counter Project - user number # 33192<http://ubuntucounter.geekosophical.net> -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20110429/978bc7eb/attachment.html>

Reply by email