مدیریت منوی close در راست کلیک برنامه ای که در taskbar قرار دارد.

[Mask]

با سلام
چطوری باید منوی close در راست کلیک برنامم که در تسکباره رو مدیریت کنم و عملی رو که میخام انجام بده.
تشکر.

[BORHAN TEC]

چطوری باید منوی close در راست کلیک برنامم که در تسکباره رو مدیریت کنم و عملی رو که میخام انجام بده.
کافیه که شما کد مورد نظرتون رو در رویداد مربوط به Close مربوط به فرم اصلی برنامه بنویسید.

[Mask]

برادر اخوی ممنون.
اما لا اقل یه امتحان بکن بعد بگو.
کد زیر رو اول نوشتم که نشد.
متغیر زیر رو سراسری تعریف کردم

Check:Boolean;کد زیر رو ملاحظه بفرمایید.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Edit1.Text='1' then
begin
Check:=False;
ShowMessage('no');
end
else
begin
check:=True;
ShowMessage('yes');
end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Check=false then
begin
CanClose:=False;
end else begin
canclose :=True;
end;
end;
اما بعدش کد دوم رو نوشتم که جواب داد.(برای استفاده عموم)

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Edit1.Text='1' then
begin
Check:=False;
ShowMessage('no');
end
else
begin
check:=True;
ShowMessage('yes');
end;
if Check=false then
begin
CanClose:=False;
end else begin
canclose :=True;
end;
end;