برنامه هاي چند فرمي

[siminsob]

من داده اي را در فرم يك و دو تعريف كردم.اين داده در رويداد Onclickچند دكمه در فرم2 مقدارهاي متفاوت مي گيرد.و در فرم 1 در عبارت Case Of اين داده مورد بررسي قرار دادم.اما در اجرا هر كدام از رويدادهايي كه در فرم 2 هم كه اتفاق بيافتد فقط مقدار رويداد اول به آن داده داده مي شود.
چه كار كنم كه بر حسب رويدادي كه اتفاق مي افتد به آن داده مقدار داده شود؟

[مرد مباح]

به انجمن ما خوش اومدی
روند کاریتو توضیح میدی ؟
یعنی میگی این Case Of رو برای چی نوشتی تا شاید بتونم کمکی کنم؟

[siminsob]

procedure TForm6.Label2Click(Sender: TObject);
begin
case form11.newgame of
nomaze: form12.Show;
box: form13.show;
tunnel: form14.show;
spiral: form15.show;
blockade: form16.show;
twisted: form17.show
اين كد رو در برچسب2 فرم 6 نوشتم.

[siminsob]

.procedure TForm11.Label2Click(Sender: TObject);
begin
form11.Hide;
form18.show;
newgame:=nomaze;
end;
procedure TForm11.Label3Click(Sender: TObject);
begin
form11.Hide;
form19.show;
newgame:=box;
end;
procedure TForm11.Label4Click(Sender: TObject);
begin
form11.hide;
form21.show;
newgame:=tunnel;
end;
اين كد هم در فرم11 برنامه ام نوشتم.

[siminsob]

public
newgame:(nomaze,box,tunnel,spiral,blockade,twistwd );
اين هم در بخش عمومي

حالا هر وقت روي هر كدام از برچسب هاي فرم11 كه كليك كنم و بعد بر روي برچسب2 فروم 6 كليك كنم فقط دستور مربوط به مقدار اولين رويداد فرم 11 اجرا مي شود
در صورتي كه من مي خوام روي هر رويدادي كه كليك مي كنم دستور مربوط به همان مقار رويداد اجرا شود

من بايد چطور اين كد رو تغيير بدم تا درست اجرا شه؟

[مرد مباح]

اینجوری همه چیز به نظرم خوب میاد.
اگه میتونی Source برنامت رو لینک بده تا دانلود کنم و اصلاحات رو روش انجام بدم و بعدش بگم مشکلت کجا بوده.
خوبه ؟

[siminsob]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[siminsob]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[/CODE]

[siminsob]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[siminsob]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید