26-03-2008, 09:06 PM
السلام عليكم ة رحمة الله تعالى و بركاته
أشكرك الأخ الكريم على هذه المحاولة,
فقط أود أن أضيف شيئا
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;
إن شاء الله سيكون الجميع قد استفاد.
أشكرك الأخ الكريم على هذه المحاولة,
فقط أود أن أضيف شيئا
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=false;
end;
إن شاء الله سيكون الجميع قد استفاد.