MainMenu Checked Delphi 6

[min@y™]

типо так??

нет.
1. Удали везде Application.OnIdle:=AppIdle; и вставь это в OnCreate формы.
2. Присваивание N1.Checked:= ... должно остаться только в обработчике AppIdle. В остальных местах манипулируй только свойством Panel1.Visible.
3. И переименуй по-человечески компоненты уже, а то на нервы действует.

[Dvoishnik]

так ?

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnIdle:=AppIdle;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
Panel1.Visible:= not Panel1.Visible;
end;
procedure Tform1.AppIdle(Sender: TObject; var Done: Boolean);
Begin
N1.Checked:= Panel1.Visible
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Visible:= not Panel1.Visible;
end;

все по прежнему нечего не меняется пока не наведешь на меню мышкой.


может стоит попробовать вызвать перерисовку компонента только вот как?

[Аватар]

Упс, и правда ImageList так влияет

procedure TForm1.N3Click(Sender: TObject);
begin
  N3.Checked:=not N3.Checked;
  grp9.Visible:=N3.Checked;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  N3Click(Sender);
  DrawMenuBar(Handle);
end;

Лучше Button3Click так

procedure TForm1.Button3Click(Sender: TObject);
begin
  N3.Click;
  DrawMenuBar(Handle);
end;

[Dvoishnik]

Сообщение от Аватар

  DrawMenuBar(Handle);

спасибо то что доктор прописал