File menu (Page 1 of 2)

Hello Roger

If you want hide original menus to replace them with your own menus, I can send you my own script to do that

JB

Hello Roger

Please find in attachment my zipped menus
Sorry, words are in French, but you will adapt them without difficulty according to your needs.
If any question, no hesitation, send me a message on  forum.
If any problem, I can translate french terms if this can help you.

JB

I have used a script for disabling the file menu in one form, but when I added another form trying the same it failed.

procedure Fleverandorkontakt_OnShow (Sender: string; Action: string);
begin
  Fleverandorkontakt.mniAbout.Visible := False;
  Fleverandorkontakt.mniOptions.Visible := False;
  Fleverandorkontakt.TableGrid1.BestFitColumns(bfBoth);
end;

procedure Fkontraktsansvarlig_OnShow (Sender: string; Action: string);
begin
  Fkontraktsansvarlig.mniAbout.Visible := False;
  Fkontraktsansvarlig.mniOptions.Visible := False;
  Fkontraktsansvarlig.TableGrid1.BestFitColumns(bfBoth);
  //Fkontraktsansvarlig.TableGrid1.Visible := False;
end;

SCRIPT ERROR MESSAGE: Undeclared indentifier:'mniAbout'

When I commented the lines out the application triggered a message for the procedure itself.
Obviously some variable declaration missing, but how do I fix it ?

Hi Roger,

You only need to disable the file menu options once, on the first form that is called when you run your application.  So, your script would typically read as follows:

procedure Form1_OnShow (Sender: string; Action: string);
begin
  form1.mniAbout.Visible := False;
  form1.mniOptions.Visible := False;
  form1.mniFile.Visible := False;
end;

The menu options on Form1 and any other form are now all removed.

Hope this helps,
Derek

roger
Please attach your project (zip file without exe and dll)

I don't get any error messages in your project, how to reproduce the error?

I see that you commented this line (attached project without commented this line):

//sHello: string; 

You should to comment and this line (first line in your code), because after keyword var variables must be declared:

var

In your attached project there is no this code, please attach actual your project.

Hi Roger,
I think the problem could simply be the sequence in which your forms are held.
I downloaded your project and encountered the same problem as you. 
When I switched the sequence of the forms, the error is corrected (see roger.jpg).
Maybe this helps.
Derek

The fixed project.

Check out this example, how to create mainmenu on other form
http://myvisualdatabase.com/forum/misc. … download=1