12-27-2011، 02:30 PM
(آخرین تغییر در ارسال: 12-27-2011، 02:31 PM توسط Amin_Mansouri.)
(12-27-2011، 02:07 PM)nasrinPoornejaty نوشته: ببخشید من فایل رو تونستم دانلود کنم ، اما خود برنامه مشکل داره و اجرا نمی شه .اما تا جاییکه فهمیدم اینکه تو
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.
اینم یه عکس که بهتر متوجه بشی :
گروه دور همی پارسی کدرز
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg
https://t.me/joinchat/GxVRww3ykLynHFsdCvb7eg