حول StringGrid و نقل رسم بين الخلايا

[flashier2007]

كيف يمكنني ان اضع رسم داخل خلية فقط من stringgrid وبعدها استطيع نقلها الى خلية اخرى بواسطة
draganddrop

شكرا مسبقا

[kachwahed]

[COLOR="black"]أولا السلام عليكم.
للرسم

كود :

procedure TForm1.Button1Click(Sender: TObject); var Bitmap: TBitmap; begin Bitmap:=TBitmap.Create; Bitmap.LoadFromFile('C:\factory.bmp'); StringGrid1.Canvas.StretchDraw(StringGrid1.CellRect(1,1),Bitmap); Bitmap.Free; end;

للنقل يمكن استخدام الحدث DragDrop.[/COLOR]