Недавно добавленные исходники

•  TDictionary Custom Sort  506

•  Fast Watermark Sources  872

•  3D Designer  1 801

•  Sik Screen Capture  1 455

•  Patch Maker  1 459

•  Айболит (remote control)  1 387

•  ListBox Drag & Drop  1 155

•  Доска для игры Реверси  21 222

•  Графические эффекты  1 335

•  Рисование по маске  1 274

•  Перетаскивание изображений  1 084

•  Canvas Drawing  961

•  Рисование Луны  798

•  Поворот изображения  754

•  Рисование стержней  801

•  Paint on Shape  486

•  Генератор кроссвордов  747

•  Головоломка Paletto  659

•  Теорема Монжа об окружностях  839

•  Пазл Numbrix  606

•  Заборы и коммивояжеры  835

•  Игра HIP  549

•  Игра Go (Го)  522

•  Симулятор лифта  544

•  Программа укладки плитки  505

•  Генератор лабиринта  560

•  Проверка числового ввода  519

•  HEX View  595

•  Физический маятник  522

•  Задача коммивояжера  556

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



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



Оформил: DeeCo

{ 
  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;




Похожие по теме исходники

Создание таблиц в Paradox

Очередность выполнения процессов




Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram