MainMenu Checked Delphi 6

[Dvoishnik]

при нажатии на кнопку прячу панель и убираю галочку от соответствующего пункта меню.

       if N3.Checked then
         Begin
          N3.Checked:=false;
          grp9.Visible:=False;
         end

проблема состоит в том, что не перерисовывается пункт меню пока на него мышкой не наведешь.
как это решить можно?
П.С. да было бы круто перейти на более новую версию Delphi но пока нет такой возможности.

[min@y™]

А меню разве не скрывается при нажатии ка кнопку (или вообще куда-либо)?

[NetSpace]

да дело не в версии Delphi.
Может, попробуешь форму перерисовывать или на любой посторонний шорох мышью реагировать, типа Form.Resize?

[kropotkina-alice]

Application.ProcessMessages...

[Dvoishnik]

Сообщение от min@y™

А меню разве не скрывается при нажатии ка кнопку (или вообще куда-либо)?

скрывается все кроме титульной его части, именно с ней я и работаю.

Сообщение от NetSpace

да дело не в версии Delphi.
Может, попробуешь форму перерисовывать или на любой посторонний шорох мышью реагировать, типа Form.Resize?

из базуки по воробьям???

//на N3Click
N3.Checked := not N3.Checked;
if   N3.Checked then
  begin
   N3.Caption:=N3.Caption+'   ';
   grp9.Visible:=True;
  end
   else
    begin
     grp9.Visible:=False;
     N3.Caption:=Copy(N3.Caption,1,19);
    end;
//на кнопку 
       if N3.Checked then
         Begin
          N3.Checked:=false;
          N3.Caption:=Copy(N3.Caption,1,19);
          grp9.Visible:=False;
         end

если вызывается перерисовка меню при изменении Caption

П.С. если вариант получше подскажите.

Сообщение от kropotkina-alice

Application.ProcessMessages...

немного не тот случай я так понял перерисовка компонента в принципе не предусмотрена. при изменении свойства Checked у элемента MainMenu

[min@y™]

прячу панель и убираю галочку от соответствующего пункта меню.

Засунь это соответствие в обработчик события Application.OnIdle.

procedure TFormMain.AppIdle(Sender: TObject; var Done: Boolean);
begin
  N3.Checked:= grp9.Visible;
end;

Ничего не гарантирую, но попробовать можно.

[Dvoishnik]

Сообщение от min@y™

Засунь это соответствие в обработчик события Application.OnIdle.

немного не понял зачем?

[min@y™]

немного не понял зачем?

Попробуй сначала, мне интересно, сработает или нет.

[Аватар]

скрывается все кроме титульной его части, именно с ней я и работаю.

И галки в титульной части? Они там вообще отображаются и должны отображаться?

[Dvoishnik]

Сообщение от min@y™

Попробуй сначала, мне интересно, сработает или нет.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, ImgList, ExtCtrls;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    Button1: TButton;
    asa1: TMenuItem;
    ImageList1: TImageList;
    Panel1: TPanel;
    procedure N1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure AppIdle(Sender: TObject; var Done: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.AppIdle(Sender: TObject; var Done: Boolean);
Begin
N1.Checked:= Panel1.Visible
end;

procedure TForm1.N1Click(Sender: TObject);
begin

N1.Checked:= not N1.Checked;
if N1.Checked then
  Panel1.Visible:=True
    else Panel1.Visible:=False;
    Application.OnIdle:=AppIdle;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
N1.Checked:= not N1.Checked;
if N1.Checked then
  Panel1.Visible:=True
    else Panel1.Visible:=False;
    Application.OnIdle:=AppIdle;
end;

end.

типо так??

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

И галки в титульной части? Они там вообще отображаются и должны отображаться?

в Delphi 6 можно если ImageList прикреплен к меню.
насчет того, что они должны, а что нет вопросы не ко мне, а непосредственно к галкам или документам по среде.