[lazarus] Menu problem

jozsef at wingchun.hu jozsef at wingchun.hu
Fri Feb 21 21:25:25 EST 2003



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






More information about the Lazarus mailing list