판넬 이미지파일 저장

판넬 이미지파일 저장

 

 

TMyPanel = class(TPanel)

public

property Canvas;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

var B: TBitmap;

begin

B:=TBitmap.Create;

B.Width:=Panel1.Width;

B.Height:=Panel1.Height;

B.Canvas.CopyRect(Rect(0,0,B.Width,B.Height),

TMyPanel(Panel1).Canvas,

Rect(0,0,B.Width,B.Height));

B.SaveToFile('panel.bmp');

B.Free;

end;

 

Panel1 - your Panel;