19-09-2009, 12:18 AM
22-09-2009, 12:45 PM
[COLOR="black"]أولا السلام عليكم.
للرسم
للنقل يمكن استخدام الحدث DragDrop.[/COLOR]
للرسم
كود :
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;