Delphi. Скриншот компонента

[AlexandЯ]

Люди добрые, подскажите, как сделать, чтобы по нажатию кнопки button сохранялся скриншот компонента Panel и всего его содержимого.

[Niarb]

попробуй так:

procedure TForm1.Button1Click(Sender: TObject);
var bm: TBitMap;
    w, h: integer;
begin
   w:=panel1.Width;
   h:=panel1.Height;
   bm:=TBitMap.Create;
   bm.Width:=w;
   bm.Height:=h;
   BitBlt(bm.Canvas.Handle,0,0,w,h,GetDC(panel1.Handle),0,0,SrcCopy);
   bm.SaveToFile('c:\temp\1.bmp');
   bm.Free;
end;

разместил на панели несколько Лэйблов и Едит - все работает

[AlexandЯ]

Огромное спасибо!!! А как сделать, чтобы открывалось окно сохранения, ну как в винде(сохранить как...)?

[Niarb]

кидаешь на форму SavePictureDialog с вкладки Dialogs
и далее

   if SavePictureDialog1.Execute then begin
      bm.SaveToFile(SavePictureDialog1.FileName);
   end;

вот только при выборе расширения Bmp, Jpg, Ico возникнут трудности поскольку все они сохраняются по разному (придется конвертировать из bmp в нужный формат). плюс надо еще делать проверку на "заменять ли уже существующий файл".
...
об этом сдесь много инфы - читай

[AlexandЯ]

Благодарю, всё круто!!!