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

Тема в разделе "Pascal and Delphi", создана пользователем DoctorChe, 31 янв 2011.

  1. DoctorChe

    DoctorChe Гость

    Делаю так:
    Код (Delphi):
    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 Гость

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

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