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

السلام عليكم و رحمة الله و بركاته
[صورة: 366378747.png]

كيف عند الضغط على السطر رقم 1 لـ dbgrid الى الفورم رقم 2
و عند الضغط على السطر التاني لـ dbgrid انتقل اى الفورم رقم 3
وهكذا مع باقي السطور
يعني كل سطر يقبله فورم جديد

كود :
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if DBGrid1.DataSource.DataSet.RecNo=1 then form2.showmodal;
if DBGrid1.DataSource.DataSet.RecNo=2 then form3.showmodal;
if DBGrid1.DataSource.DataSet.RecNo=3 then form4.showmodal;
if DBGrid1.DataSource.DataSet.RecNo=4 then form5.showmodal;
end;

شكرا لك أخي بارك الله فيك

و جزاك كل خير

وجعلك من اهل الجنة

ملاحظة: اذاكان الDbgrid1 ربط بDataSource1 التي بدورها ربطت AdoTable1 يمكن كتابة الكود السابق

كود :
procedure TForm1.DBGrid1CellClick(Column: TColumn);
 begin
 if AdoTable1.RecNo=1 then form2.showmodal;
 if AdoTable1.RecNo=2 then form3.showmodal;
 if AdoTable1.RecNo=3 then form4.showmodal;
 if AdoTable1.RecNo=4 then form5.showmodal;
 end;

widad-wac

محمد عبد العزيز

widad-wac

محمد عبد العزيز