아래에 있는 예제은 RxLib 에 있는 RxTrayIcon 을 예로 들어 설명했습니다.

즉 메인 폼의 생성시에 OnMinimize Event 를 Tray 를 활성화 시키는 것으로

대치하고 나서 트레이의 활성화 부분에서는 메인폼을 Hide 시키시면 됩니다.

참고로 RxLib 는 Delphi 자료실에 등록되어 있습니다.

그럼......

                                   ~ 도치였습니다.



Procedure TMain_Title.Tray_Active(Sender: TObject);
begin
  RxTrayIcon1.Active := True;
  Main_Title.Hide;
end;

procedure TMain_Title.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := Tray_Active;
end;

procedure TMain_Title.RxTrayIcon1DblClick(Sender: TObject);
begin
  RxTrayIcon1.Active := False;
  Application.Restore;
  Main_Title.Show;
  Application.BringToFront;
end;