[Amin_Mansouri]

من از نمونه
HIDE
و
SHOW
استفاده کردم ، اما در یکی از فرمهای من عملیاتی انجام می شه که از تایمر استفاده می شه و وقتی من فرم را
Hide
می کنم ، عملیات آن هنوز ادامه داره یعنی کارهایی که در آن فرم انجام می شده با
hide
شدن آن فرم بسته نمیشه، حالا باید چکار کنم ؟؟؟؟؟ حتی روی
Onhide
فرم هم تایمر ها رو بستم اما خطا داد

درود
نسرین جان رویداد Hide از اسمش که پیدا هست فرم رو پنهان میکنید خاصیت نمایشی دارید ولی فرم اجراست کارشم انجام میده ولی فقط پنهان هست.
فقط کافیه با دستور زیر فرم رو Close کنید به همین راحتی !

یه نمونه کد :

کد:

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Close;
end;

end.

به امید دیدار

[nasrinPoornejaty]

زمانیکه فرم را
CLOSE
می کنم ، و دوباره وارد اون فرم می شم خطا می دهد.برای همین از
Close
استفاده نکردم.

[Amin_Mansouri]

زمانیکه فرم را
CLOSE
می کنم ، و دوباره وارد اون فرم می شم خطا می دهد.برای همین از
Close
استفاده نکردم.

خطا نمیده
شما تو قسمت uses یونیت فرم بعدی رو اضافه کنید تا با مشکلی مواجه نشید.
یه سورس پیوست کردم نگاه کن مشکل نداره که !


دانلود :


  close-Show Form Delphi.zip (اندازه 4.92 KB / تعداد دانلود: 6)

[nasrinPoornejaty]

فایلی را که گذاشتید رو نمی تونم دانلود کنم خطا میده

[Amin_Mansouri]

لینک سالمه
یه جا دیگه هم اپ کردم
لینک :
http://up9.iranblog.com/images/ewg2xwhh8zv82lh4pz.zip

[nasrinPoornejaty]

ببخشید من فایل رو تونستم دانلود کنم ، اما خود برنامه مشکل داره و اجرا نمی شه .اما تا جاییکه فهمیدم اینکه تو
USEU
هر فرم اسم فرم دیگه رو بیارم.
درسته ؟؟؟؟؟؟

[Amin_Mansouri]

ببخشید من فایل رو تونستم دانلود کنم ، اما خود برنامه مشکل داره و اجرا نمی شه .اما تا جاییکه فهمیدم اینکه تو
USEU
هر فرم اسم فرم دیگه رو بیارم.
درسته ؟؟؟؟؟؟

سلام
نسرین جان من فایل رو یه جا دیگه هم براتون اپلود کردم لینک توی پست قبلی هست.

توی قسمت useu نه توی قسمت uses باید اسم یونت فرم رو بنویسید وقتی فرم 2 رو ادد میکنیم یه یونیت اضافه میشه
اگر توی قسمت uses تعریف نکنی اصلا فرم و کنترل های فرم دیگه رو نمیتونیم به هم ارتباط بدیم :

یه نمونه کد میزارم :

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms,unit2, Vcl.Dialogs, Vcl.StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
form2.Show;//نمایش فرم
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form2.Close;//بستن فرم
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate; //بستن برنامه
end;
end.

اینم یه عکس که بهتر متوجه بشی :