Цитата:
|
Сообщение от Vold.khv
Оо поделись кодом плиз))
|
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;