Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Вниз

Работа с плагинами   Найти похожие ветки 

 
Fedor Sumkin ©   (2004-07-16 01:11) [0]

Добрый всем вечер или ночь!?
Помогите пожайлуста разобраться, как организовать простейшую работу с плагинами. К примеру у меня в какойто папке специальный файл лежит, а мне надо что при событии ОнКриейт формы, в меню появлялись итемы. Или например много файлов и чтобы на каждый было по итему. Заранее благодарен!


 
TUser ©   (2004-07-16 04:13) [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;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.08.01;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.04 c
14-1089618310
X9
2004-07-12 11:45
2004.08.01
Нуль-модемное соединение


14-1089575863
Ломброзо
2004-07-11 23:57
2004.08.01
Смотрите, что втихаря творят


1-1089877717
Amid
2004-07-15 11:48
2004.08.01
В процедуре TForm1.IdTCPServer1Execute(..) прогр. блокир. ??????


1-1090359562
НовиЧок
2004-07-21 01:39
2004.08.01
Сохранение RichEdit


14-1089890356
ruslan
2004-07-15 15:19
2004.08.01
krasiviy tekst





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский