Цитата:
|
Сообщение от v1s2222
Возможно ошибка при запуске плагина:
Код:
...
OnClick := OpenPluginForm; // процедура запускает плагин
...
Проверь ту процедуру, возможно именно она запускает один и тот же плагин... |
Нет, нет! Дело в том, что еще при запуске программы и открытия основного пункта меню (куда меню плагинов добавляются) имеется ряд пунктов меню в количестве загруженных плагинов, но, что названия, что подскажки и т.д. - все от первого загруженного плагина.
(Открываешь прогу - а там 2 пункта от первого плагина "Блокнот"
)
P.S.
Вот процедура запуска плагина:
Код:
procedure TMainForm.OpenPluginForm(Sender: TObject);
var
PackForm: TForm;
FormClass: TFormClass;
begin
// Получаем имя формы плагина из его меню и поехали...
FormClass := TFormClass(GetClass(TPluginMenu(Sender).PlugForm));
if Assigned(FormClass) then
begin
PackForm := FormClass.Create(Self);
PackForm.Show;
end
else
raise Exception.Create(
'Ошибка! Неудалось открыть окно плагина. Класс не найден.');
end;