Наследование в PopupMenu

← →
IntruderLab (2008-03-21 10:42) [0]

Есть форма с вкладками, на каждой вкладке есть компонент, ну для примера TListBox, каждый лист, имеет управление с компонента TPopupMenu, при нажатии на одно из меню вызывается форма контекстного поиска в листбоксе:
function Find(obj:TComponent):Variant;StdCall
var frmFind:TfrmFind;
begin
frmFind := TfrmFind.Create(Application);
ShowMessage(obj.Name);
frmFind.ShowModal;
try
Result := .... данные;
finally
frmFind.Free;
end;
end;
Вызов функции:
procedure TfrmShowDocuments.pmnuFindClick(Sender: TObject);
var LibHandle:THandle;Find:function(obj:TComponent):Variant;StdCall;
begin
LibHandle := LoadLibrary("iHercules.dll");
if LibHandle <> 0 then
begin
@Find := GetProcAddress(LibHandle,"Find");
Find(pmnuFind.Parent.Owner as TComponent);
end;
end;
но в этом случае, как obj уходит pmnuFind, как мне, без неявного прописывания указать какой объект вызвал сначала PopupMenu

← →
Сергей М. © (2008-03-21 10:54) [1]

см. TPopupMenu.PopupComponent

Только причем здесь "наследование" ?
В огороде бузина, а в киеве дядька)

← →
IntruderLab (2008-03-21 10:55) [2]

:), это типа в первый момент не смог выразить мысль, но спасибо, посмотрю

← →
Сергей М. © (2008-03-21 10:58) [3]

У тебя жуткая каша в голове)

← →
IntruderLab (2008-03-21 11:11) [4]

6 лет без отпуска, уже на пределе

← →
IntruderLab (2008-03-21 11:11) [5]

Кстати, еще раз спасибо, совет помог :)

← →
IntruderLab (2008-03-21 11:16) [6]

А еще вопрос, как-то из модальной формы можно управлять другой формой, и если да, то где можно инфы нарыть?

> [6] IntruderLab (21.03.08 11:16)

Точно и детально опишите проблему
(c) http://www.rsdn.ru/Info/Howtoask.xml
Johnmen ©

← →
IntruderLab (2008-03-21 11:30) [8]

> {RASkov} © (21.03.08 11:22) [7]
>
> > [6] IntruderLab (21.03.08 11:16)
>
> Точно и детально опишите проблему
> (c) http://www.rsdn.ru/Info/Howtoask.xml
> Johnmen ©
>

Спасибо за совет :)

> как-то из модальной формы можно управлять другой формой

Можно.

> где можно инфы нарыть?

В практически любом букваре по Делфи.

Все "управление" сводится к обращению к св-вам/методам/событиям "другой формы".

Наследование в PopupMenu Найти похожие ветки