بسته نشدن یک برنامه با زدن دکمه Close ورفتن به حالت Minimize

[hentjanson]

سلام دوستان میشه بگید چکار کنم برنامه با زدن دکمه close بسته نشه بلکه minimize شه ؟

برای شروع باید بگم من از این کد استفاده میکنم .

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
Form1.WindowState:=wsMinimized;
end;

این کد برنامه رو تو نوار پایین میاره ولی من برنامم ایکن داره میخوام برنامه تو taskbar قرار نگیره

نکته اینجاست میخوام وقتی دکمه close میزنم برنامه بسته نشه کامل بلکه ایکن برنامه باقی بمونه تا از طریق منویی که واسه ایکن برنامه گزاشتم trayicon برنامه رو ببندم .

اساتید میشه راهنمایی کنید

[MohsenB]

با سلام

این یه راهه :
یه کنترل تری آیکون روی فرم بزارید ، من با استفاده از کلیک فرم رو نشون دارم شما میتونید یه پاپ آپ درست کنید و اون رو به این کنترل وصل کنید و تو گزینه مورد نظرتون عمل این کلیک رو انجام بدید .

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= False;
Hide;
end;

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

موفق باشید