Topic: [Script] Creating your own menu item "About" and a window About.
Creating your own menu item "About" and a window with information.
procedure Form1_OnShow (Sender: string; Action: string); // event OnShow
begin
Form1.mniAbout.OnClick := @MenuClickAbout;
end;
procedure MenuClickAbout (Sender: string); // click in About menu item
begin
frmAbout.ShowModal;
end;
begin
end.
Download project:
http://myvisualdatabase.com/forum/misc. … download=1