1. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

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

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

Тема в разделе "Pascal and Delphi", создана пользователем 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
    Проблема решена. Косяк был в ином месте. Не по глазам...
     
Загрузка...

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