[lazarus] Menu problem

[Csermák Szabolcs]

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