popupmenu

[Symba]

подскажите, как сделать из оного пункта меню checkbox ,чтоб при первом выборе ставилась "галочка" на пункте (чтоб она отображалась), при последующем чтоб она снималась с пункта,в случае установки "галочки" на пункт меню, его свойство checked:=true; не могу разобраться уже сутки!!!!

[Asinkrit]

Установи свойство AutoCheck:=true для пункта меню, можно прямо в редакторе свойств.

[Symba]

разобрался, подсказали вот такой вариант

procedure TForm1.N21Click(Sender: TObject);
begin
  if i = 0 then
    begin
      N21.Checked := True;
      i := 1;
    end
  else
    begin
      N21.Checked := False;
      i := 0;
    end;
end;

если OwnerDraw стоит True, ставим False - работает снова

[Asinkrit]

Зачем плодить индусский код?
при OnCreate, N21.AutoCheck:=true; и все..
Или в редакторе свойств можно сразу установить этот параметр.