Как вывести панель (TPanel) из переменной?

[russian-stalker]

2grey,
Ваш способ надо немного дописать:

procedure TForm1.Button1Click(Sender: TObject);
var
c:tcanvas;
begin
c:=tcanvas.Create;
c.Handle:=getdc(panel1.Handle);
image1.Canvas.CopyRect(image1.Canvas.ClipRect,c,c.ClipRect);
end;

[grey]

Извиняюсь, что заморочил тут всем голову (у меня мало опыта, что бы применять сложные решения), но до меня таки дошло:
ScreenDC : HDC; - это уже переменная, и помещать её нужно в глбальные.

Тогда при щелчке по кнопке например RadioButton1
пишу в переменную

ScreenDC := GetDC(Form1.Panel1.Handle);

и уже (по мере надобности) другой кнопкой сохраняю это в jpeg, получилось компактней на полторы сотни строк.

Всем большое спасибо за участие

PS.
а способ снятия/сохранения скринов считаю что в моём случае оптимальный:

procedure TForm1.Button3Click(Sender: TObject);
var
   MyBitmap : TBitmap;
   ScreenDC : HDC;
begin
  MyBitmap:=TBitmap.Create;
  ScreenDC := GetDC(Form1.Panel1.Handle);
  MyBitmap.LoadFromDevice(ScreenDC);
  jpg:=tjpegimage.create; 
  jpg.assign( MyBitmap);
  jpg.compressionquality:=100;
  jpg.savetofile (' ');
  SaveDialog1.InitialDir := FpGetEnv('HOME') + '/Desktop/ini_pic';
  SaveDialog1.Filter:='jpg-files|*.jpg|All Files|*.*';
  SaveDialog1.FileName:='01_Pos.'+PosToFileName+'_date_'+DateToFileName+'.jpg';
   If SaveDialog1.Execute then jpg.SaveToFile(SaveDialog1.FileName);
  jpg.free;
  MyBitmap.Free;
end;