Работа с плагинами [D5, Win95/98]
Fedor Sumkin © (2004-07-16 01:11:00)
Добрый всем вечер или ночь!?
Помогите пожайлуста разобраться, как организовать простейшую
работу с плагинами. К примеру у меня в какойто папке специальный
файл лежит, а мне надо что при событии ОнКриейт формы, в меню
появлялись итемы. Или например много файлов и чтобы на каждый было
по итему. Заранее благодарен!
TUser (2004-07-16 04:13:00) [1]
Тут все от фантазии зависит. Обычно поставляют dll или bpl в
качестве плагинов. Каждая экспортирует те ф-ции, котрые потом
вызываются твоей программой.
Чтобы на файл было по итему - пробегаешся по каталогу
FindFirst/FindNext'ом, на каждый найденный файл делаешь примерно
так
var mi:TMenuItem;
Counter:integer;
begin
...
mi:=TMenuItem.Create;
mi.Caption:=SearchRec.Name;
mi.Tag:=Counter;
mi.OnClick:=AnyOnClick;
mi.Parent:=RarentItem;
...
end;
procedure AnyClick(Sender:TObject);
var mi:integer;
begin
mi:=(Sender as TComponent).Tag;
{Был выбран итем с тагом mi}
end;
Наверх 
ЧАТ |
Орешник |
|
