[Danik007]

Здравствуйте!
Все время писал программы используя стандартные компоненты Delphi и естественно что процедуры создавались на автомате. Но у таких процедур есть один недочет они "отталкиваются" от моей формы
Вот возникла потребность написать собственную процедуру, основываясь на этой коде:

Код:

procedure TMainForm.TrayMessage(var Msg: TMessage);
begin
  case Msg.lParam of
    WM_LBUTTONDOWN:
    begin
      ShowMessage('Left button clicked 
                  - let''s SHOW the Form!');
      MainForm.Show;
    end;
    WM_RBUTTONDOWN:
    begin
      ShowMessage('Right button clicked 
                  - let''s HIDE the Form!');
      MainForm.Hide;
    end;
  end;
end;

Но для стороннего приложения в трее. Стороннее приложение в трей отправил я сам, а теперь хочу расширить программу(с помощью которой и отправил) чтоб приложение можно было "позвать" обратно
Надеюсь на вашу помощь!

[Ama]

Я думаю все это осуществимо если найти хендл чужого окна с помощью findwindow

[lmikle]

Ну, так у тебя все и есть, что нужно.
По кнопке (там, где ShowMessage стоит) тебе надо проделать операцию, обратную к отправлению в трей с соответсвующим приложением. Ты, когда в трей приклад отправляешь, сохрани его хэндл. И потом по этому хэндлу поднимай из трея...

[Danik007]

По кнопке (там, где ShowMessage стоит) тебе надо проделать операцию, обратную к отправлению в трей с соответсвующим приложением. Ты, когда в трей приклад отправляешь, сохрани его хэндл. И потом по этому хэндлу поднимай из трея...

Если вы об этом:

Код:

...
HTD:= FindWindow(nil, 'Записки' );
...
procedure TrayMessage(var Msg: TMessage);
begin case Msg.lParam of WM_LBUTTONDOWN: begin ShowMessage('Left button clicked - let''s SHOW the Form!');
ShowWindow(HTD, SW_SHOW); end;
WM_RBUTTONDOWN: begin ShowMessage('Right button clicked - let''s HIDE the Form!');
ShowWindow(HTD, SW_HIDE); end; end; end;
...

то это не работает не работает. Вот я и теряюсь, может я не правильно описываю процедуру?

[PhoeniX]

Конечно, не найдёт...
Сохраняй хендл окна в момент его скрытия.