Развернуть программу из трея

@NIKOLAYY · Регистрация: 22.09.2012

Author24 — интернет-сервис помощи студентам

Таким образом сворачивается программа в трей-

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  TrayIcon1.Visible := True;
  Application.MainForm.Hide;
end;
 
procedure TForm1.TrayIcon1Click(Sender: TObject);
 
begin
 
  TrayIcon1.Visible := False;
  Application.MainForm.Show;
end;

А как обратно развернуть так и непонял, может кто знает?

@U-III · 11.10.2013, 09:00

У TrayIcon1 скорее всего есть свои методы для отображения и скрытия формы.
Воспользуйтесь ими.

Или вот нашел.

procedure TForm1.TrayIcon1DblClick(Sender: TObject);
begin

{ Hide the tray icon and show the window,
setting its state property to wsNormal. }
TrayIcon1.Visible := False;
Show();
WindowState := wsNormal;
Application.BringToFront();
end;

@artemka2008 · 11.10.2013, 12:15

Сообщение от NIKOLAYY

Таким образом сворачивается программа в трей-

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  TrayIcon1.Visible := True;
  Application.MainForm.Hide;
end;
 
procedure TForm1.TrayIcon1Click(Sender: TObject);
 
begin
 
  TrayIcon1.Visible := False;
  Application.MainForm.Show;
end;

А как обратно развернуть так и непонял, может кто знает?

если используется cooltraiicon, то можно сделать так:

Delphi

procedure TForm1.TrayIcon1Click(Sender: TObject);
begin
TrayIcon1.ShowMainForm;
end;

@U-III 59 / 59 / 12 Регистрация: 24.10.2012 Сообщений: 170
	11.10.2013, 09:00	2
	У TrayIcon1 скорее всего есть свои методы для отображения и скрытия формы. Воспользуйтесь ими. Или вот нашел. procedure TForm1.TrayIcon1DblClick(Sender: TObject); begin { Hide the tray icon and show the window, setting its state property to wsNormal. } TrayIcon1.Visible := False; Show(); WindowState := wsNormal; Application.BringToFront(); end; 1

	11.10.2013, 12:15