Показать сообщение отдельно
  #1  
Старый 02.02.2010, 22:49
Аватар для Danik007
Danik007 Danik007 вне форума
Новичок
 
Регистрация: 05.01.2010
Сообщения: 58
Репутация: 10
Стрелка Создание собственных процедур и функций

Здравствуйте!
Все время писал программы используя стандартные компоненты 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;
Но для стороннего приложения в трее. Стороннее приложение в трей отправил я сам, а теперь хочу расширить программу(с помощью которой и отправил) чтоб приложение можно было "позвать" обратно
Надеюсь на вашу помощь!
Ответить с цитированием