حول 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]