delphi4arab منتديات دلفي للعرب

السلام عليكم
حاولت اضهار 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;

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

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

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

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

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

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;

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

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

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

كود :
program Project1;

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.

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

yassine_hell

roniothman

kachwahed

yassine_hell

kachwahed

yassine_hell