-
Есть форма с вкладками, на каждой вкладке есть компонент, ну для примера 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
-
см. TPopupMenu.PopupComponent
Только причем здесь "наследование" ? В огороде бузина, а в киеве дядька)
-
:), это типа в первый момент не смог выразить мысль, но спасибо, посмотрю
-
У тебя жуткая каша в голове)
-
6 лет без отпуска, уже на пределе
-
Кстати, еще раз спасибо, совет помог :)
-
А еще вопрос, как-то из модальной формы можно управлять другой формой, и если да, то где можно инфы нарыть?
-
-
> {RASkov} © (21.03.08 11:22) [7] > > > [6] IntruderLab (21.03.08 11:16) > > Точно и детально опишите проблему > (c) http://www.rsdn.ru/Info/Howtoask.xml > Johnmen © >
Спасибо за совет :)
-
> как-то из модальной формы можно управлять другой формой
Можно.
> где можно инфы нарыть?
В практически любом букваре по Делфи.
Все "управление" сводится к обращению к св-вам/методам/событиям "другой формы".
|