[lazarus] Menu problem

Csermák Szabolcs csszabolcs at srwtrade.hu
Sat Feb 22 16:03:55 EST 2003


Hi!

This code is not enough to make a radio-like menu.
You have to parse along the menu items, and set the checked property to 
false, else if the current item is the sender.

Szabolcs

On Saturday 22 February 2003 3:40 am, jozsef at wingchun.hu wrote:
> Hello,
>
> procedure TForm1.popclick(Sender:TObject);
> begin
>   (Sender as TMenuitem).Checked:= not (Sender as TMenuItem).Checked;
> end;
>
> This code checks in properly but never checks out.
> I'd like a radiolike thing. Only one can checked.
> Do you know a solution? Share with me, please. :)
> (I use popupmenu of course.)
>
> Joe
>
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>    archives at http://www.lazarus.freepascal.org/mailarchives






More information about the Lazarus mailing list