دخول

yassine_hell · 19-04-2011, 05:59 PM

السلام عليكم
حاولت اضهار form2 عند TForm1.FormCreate
لكن كل مرة يضهر لي خطا (access violation)
هذا الكود

كود :
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
    s: string;
begin
  s:='';
  for i := 1 to ParamCount do
      s:=s+ParamStr(i)+' ';
  delete(s,Length(s),1);

  if s = 'yassine' then
      form2.Show;
end;

ملاحظة : الكود يعمل عندما اضعه في زر

roniothman · 19-04-2011, 07:57 PM

يجب ربط
ألفورم الاول بالثاني
جاري البحث عن الكود هو موجود في دورة الدولفي

**kachwahed** · 19-04-2011, 08:34 PM

وعليكم السلام ورحمة الله
تأكد أن النموذج قد تم إنشاؤه

كود :
Application.CreateForm(TForm2, Form2);

أنظر هنا أيضا:
http://www.delphi4arab.net/forum/showthr...p?tid=3405
بالتوفيق.

yassine_hell · 19-04-2011, 09:33 PM

kachwahed كتب :وعليكم السلام ورحمة الله
تأكد أن النموذج قد تم إنشاؤه

كود :
Application.CreateForm(TForm2, Form2);
أنظر هنا أيضا:
http://www.delphi4arab.net/forum/showthr...p?tid=3405
بالتوفيق.

ما رايك بهذه المحاولة

كود :
procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
    s: string;
begin
  s:='';
  for i := 1 to ParamCount do
      s:=s+ParamStr(i)+' ';
  delete(s,Length(s),1);

 if s = 'yassine' then
  begin
    Application.CreateForm(TForm2, Form2);
    Application.Run;
  end;
end;

هي تعمل لكن اردت ان اعرف رايك او اقتراحاتك

**kachwahed** · 19-04-2011, 09:46 PM

إقتباس :هي تعمل لكن اردت ان اعرف رايك او اقتراحاتك

مادامت تعمل فهي صحيحة
الأفضل أن تضعها في ملف المشروع:

كود :
program Project1;

yassine_hell · 19-04-2011, 10:16 PM

kachwahed كتب :
مادامت تعمل فهي صحيحة
الأفضل أن تضعها في ملف المشروع:

كود :
program Project1;

كود :
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}
var i: integer;
    s: string;
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  s:='';
  for i := 1 to ParamCount do
      s:=s+ParamStr(i)+' ';
  delete(s,Length(s),1);

 if s = 'yassine' then
   Application.CreateForm(TForm2, Form2)
 else
   Application.CreateForm(TForm1, Form1);

  Application.Run;
end.

جميييل ^^
شكرا

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة