I do not know where you can find information on the subject, but can
give you a few tips. You can attach submenu's to the parent forms menu by:
-- begin code
*procedure TForm1.CreateSubMenu(Sender: TObject);
*var
Sub, SubItems: TMenuItem;
begin
// Create a sub menu
Sub := TMenuItem.Create(Menu);
Sub.Caption := '&SubMenu';
// Create items on the submenu
SubItems := TMenuItem.Create(Sub);
SubItems.Caption := 'Remove This Menu';
SubItems.OnClick := @RemoveSubMenu;
Sub.Add(SubItems);
// Add Sub menu to Forms main menu (at the 3rd position).
Menu.Items.Insert(2, Sub);
end;
procedure TForm1.RemoveSubMenu(Sender: TObject);
begin
Menu.Items.Delete(2); // Delete menu item at the third position
end;
-- end code
If you need more specific information ask away, maybe we can help.
Tom
German C. Basisty wrote:
Good people:
Does anybody know where can I find documentation about creating and
managing menu? I mean, like a standard Windows app main menu or
something…
Best regards
German
------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.5.476 / Virus Database: 269.10.8/904 - Release Date: 7/16/2007 5:42 PM
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
