Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Наследование в PopupMenu [D7, Win2k, WinXP]

IntruderLab © (2008-03-21 10:42:00)
Есть форма с вкладками, на каждой вкладке есть компонент, ну для примера 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 12:04:00) [1]

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

Можно.

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

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

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

IntruderLab (2008-03-21 11:30:00) [2]

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

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

{RASkov} (2008-03-21 11:22:00) [3]
> [6] IntruderLab (21.03.08 11:16)

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

IntruderLab (2008-03-21 11:16:00) [4]
А еще вопрос, как-то из модальной формы можно управлять другой формой, и если да, то где можно инфы нарыть?

IntruderLab (2008-03-21 11:11:00) [5]
6 лет без отпуска, уже на пределе

IntruderLab (2008-03-21 11:11:00) [6]
Кстати, еще раз спасибо, совет помог :)

Сергей М. (2008-03-21 10:58:00) [7]
У тебя жуткая каша в голове)

IntruderLab (2008-03-21 10:55:00) [8]
:), это типа в первый момент не смог выразить мысль, но спасибо, посмотрю

Сергей М. (2008-03-21 10:54:00) [9]
см. TPopupMenu.PopupComponent

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »