Конференция "Основная" » Наследование в PopupMenu [D7, Win2k, WinXP]
 
  • IntruderLab (21.03.08 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
  • Сергей М. © (21.03.08 10:54) [1]
    см. TPopupMenu.PopupComponent

    Только причем здесь "наследование" ?
    В огороде бузина, а в киеве дядька)
  • IntruderLab (21.03.08 10:55) [2]
    :), это типа в первый момент не смог выразить мысль, но спасибо, посмотрю
  • Сергей М. © (21.03.08 10:58) [3]
    У тебя жуткая каша в голове)
  • IntruderLab (21.03.08 11:11) [4]
    6 лет без отпуска, уже на пределе
  • IntruderLab (21.03.08 11:11) [5]
    Кстати, еще раз спасибо, совет помог :)
  • IntruderLab (21.03.08 11:16) [6]
    А еще вопрос, как-то из модальной формы можно управлять другой формой, и если да, то где можно инфы нарыть?
  • {RASkov} © (21.03.08 11:22) [7]
    > [6] IntruderLab   (21.03.08 11:16)

    Точно и детально опишите проблему
    (c) http://www.rsdn.ru/Info/Howtoask.xml
     Johnmen ©
  • IntruderLab (21.03.08 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 ©
    >

    Спасибо за совет :)
  • Сергей М. © (21.03.08 12:04) [9]

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


    Можно.


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


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

    Все "управление" сводится к обращению к св-вам/методам/событиям "другой формы".
 
Конференция "Основная" » Наследование в PopupMenu [D7, Win2k, WinXP]
Есть новые Нет новых   [134484   +49][b:0][p:0]