Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Создание пунктов меню во время выполнения программы

Delphi , Компоненты и Классы , Меню

Создание пунктов меню во время выполнения программы

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  When you click on button1 the number of installed fonts 
  are displayed in the menu by creating the menuitems dynamically 
   
  Zur Laufzeit wird die Anzahl der installierten Schriften ausgelesen und 
  entsprechend viele Menupunkte erzeugt 
}

 type
   TForm1 = class(TForm)
     Button1: TButton;
     label1: TLabel;
     MainMenu1: TMainMenu;
     Fonts1: TMenuItem;
     procedure Fonts1Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 procedure TForm1.Fonts1Click(Sender: TObject);
 begin
   if Sender  Fonts1 then
     label1.Caption := (Sender as TMenuItem).Caption;
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 var
   NewItem: TMenuItem;
   i: Integer;
 begin
   for i := 0 to Screen.Fonts.Count - 1 do
   begin
     // Create a new Menu Item 
    // Neuen Menupunkt erzeugen 
    NewItem := TMenuItem.Create(Self);
     // Take the Font name as Caption 
    // Den Schriftnamen als Caption festlegen 
    NewItem.Caption := Screen.Fonts.Strings[i];
     // Assign a OnClick-Event 
    // Ein OnClick-Ereignis zuweisen 
    NewItem.OnClick := Fonts1Click;
     // Add the new menu 
    // Den neuen Menupunkt hinzufugen 
    Fonts1.Add(NewItem);
   end;
 end;

Статья Создание пунктов меню во время выполнения программы раздела Компоненты и Классы Меню может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Меню ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
06.12.2019 23:30:38/0.030562877655029/0