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

  • Автор темы DoctorChe
  • Дата начала
D

DoctorChe

Гость
#1
Делаю так:
Код:
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 устанавливается, а старые не снимаются...
 
D

DoctorChe

Гость
#2
Проблема решена. Косяк был в ином месте. Не по глазам...