+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : رسالة خطأ عند محاولة عرض نموذج TForm2 (/showthread.php?tid=3008)
رسالة خطأ عند محاولة عرض نموذج TForm2 - yassine_hell - 19-04-2011
السلام عليكم
حاولت اضهار 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;ملاحظة : الكود يعمل عندما اضعه في زر
رسالة خطأ عند محاولة عرض نموذج TForm2 - roniothman - 19-04-2011
يجب ربط
ألفورم الاول بالثاني
جاري البحث عن الكود هو موجود في دورة الدولفي
رسالة خطأ عند محاولة عرض نموذج TForm2 - kachwahed - 19-04-2011
وعليكم السلام ورحمة الله
تأكد أن النموذج قد تم إنشاؤه
كود :
Application.CreateForm(TForm2, Form2);http://www.delphi4arab.net/forum/showthread.php?tid=3405
بالتوفيق.
رسالة خطأ عند محاولة عرض نموذج TForm2 - yassine_hell - 19-04-2011
kachwahed كتب :وعليكم السلام ورحمة الله
تأكد أن النموذج قد تم إنشاؤه
أنظر هنا أيضا:كود :Application.CreateForm(TForm2, Form2);
http://www.delphi4arab.net/forum/showthread.php?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;هي تعمل لكن اردت ان اعرف رايك او اقتراحاتك
رسالة خطأ عند محاولة عرض نموذج TForm2 - kachwahed - 19-04-2011
إقتباس :هي تعمل لكن اردت ان اعرف رايك او اقتراحاتكمادامت تعمل فهي صحيحة
الأفضل أن تضعها في ملف المشروع:
كود :
program Project1;رسالة خطأ عند محاولة عرض نموذج TForm2 - yassine_hell - 19-04-2011
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.جميييل ^^
شكرا