1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Не снимается флаг Checked в подменю

Тема в разделе "Вопросы новичков и не только", создана пользователем DoctorChe, 31 янв 2011.

  1. DoctorChe

    DoctorChe Гость

    Репутация:
    0
    Делаю так:
    Код:
    procedure TForm1.N0Name01Click(Sender: TObject);
    Var i: Integer;
    begin
    for i := 0 to 3
    do begin
    Reopen1.Items[i].Checked:= False;
    end;
    (Sender as TMenuItem).Checked:= True;
    end;
    почему то новый флаг Checked устанавливается, а старые не снимаются...
     
  2. DoctorChe

    DoctorChe Гость

    Репутация:
    0
    Проблема решена. Косяк был в ином месте. Не по глазам...
     
Загрузка...

Поделиться этой страницей