| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как добавить пункт меню из DLL ? [D6, WinXP]

han-bratan ©   (2004-08-19 15:58:00) 

как добавить пункт меню из DLL в главное меню главого окна приложения?

---

han-bratan   (2004-08-19 19:30:00) [1]

Вызов функции добавления должен происходить в исходнике DLL а не главного приложения. Как поступить в таком случае?

---

Гаврила   (2004-08-19 18:37:00) [2]

> Мастер ©   (19.08.04 16:31) [1]


Саш, ты забыл добавить BwRTP
иначе не выйдет

---

Мастер   (2004-08-19 16:31:00) [3]

DLL:


library Menu;

uses
 SysUtils,
 Classes,
 Menus;

procedure MenuItem_Add(MainMenu1: TMainMenu;Caption: PChar);
var
 NewItem: TMenuItem;
begin
 NewItem := TMenuItem.Create(MainMenu1);
 MainMenu1.Items.Add(NewItem);
 NewItem.Caption := Caption;
end;

exports
 MenuItem_Add;

end.


Пример:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, Menus;

type
 TForm1 = class(TForm)
   MainMenu1: TMainMenu;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

procedure MenuItem_Add(MainMenu1: TMainMenu;Caption: PChar);external 'Menu.dll';

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 menuItem_Add(MainMenu1,'Ìîé ïóíêò ìåíþ1');
end;

end.


---

Наверх