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

[grey]

Извиняюсь за неопытность))
При определённых условиях необходимо делать скрины с определённых панелей. Конечно написал громоздко через условия, но:
Можно ли вывести панель из переменной? Возможно ли это?

этот код естественно выдаёт ошибку

procedure TForm1.Button3Click(Sender: TObject);
var
   .... 
   PanelX: TPanel;
begin
  PanelX:=Panel1;
  ........... 
  ScreenDC := GetDC(Form1.PanelX.Handle); 
  .........
  end;

[raxp]

чтоб сграбить с любого контекста (окромя случаев работы с directshow), сделайте следующее...

 ...
 b:= tbitmap.Create;
 CaptureClientImage(panel.Handle,b);
 ...

procedure CaptureClientImage(h: hwnd; b: tbitmap);
var DC   : hDC;
    Rect : TRect;
    wX,wY: integer;
begin
 GetWindowRect(h,Rect);
 wX:= Rect.Right - Rect.Left;
 wY:= Rect.Bottom - Rect.Top;
 DC:= GetWindowDC(h);
 //
 b.Handle:= CreateCompatibleBitmap(dc,wX,wY);
 BitBlt(b.Canvas.Handle,0,0,wX,wY,dc,0,0,SRCCOPY);
 ReleaseDC(h,DC)
end;

[grey]

Спасибо, но грабится у меня нормально (и даже всё работает), просто в программе много панелей (больше чем может вместить экран), по RadioButton осуществляется визуализация определённых панелей, а кнопкой Button3 возможность (если необходимо) создания скрина панели и автоматом сохранения в jpg.

Что бы не писать проверку переключателя RadioButton для каждой панели, я и хотел заносить переключателем название панели в переменную PanelX, а потом в procedure TForm1.Button3Click(Sender: TObject); вызывать, типа:

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

Ну если нельзя, то ладно.

[raxp]

надо не название панели заносить, а handle соотвествующей панели... попробуйте

[grey]

Сообщение от raxp

надо не название панели заносить, а handle соотвествующей панели... попробуйте

Извините, а как это?

[raxp]

покажу на примере... возъем n- панелей timage на форме... по клику на панели будем определять по какой и заносить в image (см. вложение)

procedure TForm1.Panel1Click(Sender: TObject);
begin
 //
 with (sender as tpanel) do
 CaptureClientImage(handle,image1.Picture.Bitmap);
end;

[grey]

да, спасибо большое, понял))

[DomiNick]

Что бы не писать проверку переключателя RadioButton для каждой панели, я и хотел заносить переключателем название панели в переменную PanelX

Возможно имелось ввиду нечто подобное: for функция и Label

[grey]

c Label-ями или с Panel-ями, когда в начале стоят, то просто получается (проще некуда):
Если сделать:

rocedure TForm1.Button1Click(Sender: TObject);
var
   PanelX: TPanel;
begin
  PanelX:=Panel1;
  PanelX.Color:=clred;
  end;

то работает, и по ссылке от DomiNick тоже работает
а как в моём варианте:

procedure TForm1.Button1Click(Sender: TObject);
var
   .... 
   PanelX: TPanel;
begin
  PanelX:=Panel1;
  ........... 
  ScreenDC := GetDC(Form1.PanelX.Handle); 
  .........
  end;

работать не желает

Я по неопытности и думал: может где в синтаксисе немного ошибся (забыл поставить волшебную закорючку)

[raxp]

вы б уже объединили несколько кнопок под одним кликом такой конструкцией:

procedure TForm1.Button1Click(Sender: TObject);
begin
 case (sender as tbutton).tag of
  0: CaptureClientImage(panel1.handle,image1.Picture.Bitmap);
  1: CaptureClientImage(panel2.handle,image1.Picture.Bitmap);
  2: CaptureClientImage(panel3.handle,image1.Picture.Bitmap);
  3: CaptureClientImage(panel4.handle,image1.Picture.Bitmap);
 end
end;

...или заводим массив панелей и тогда можно будет просто передавать ее номер:

var panel: array[0..3] of tpanel;
...

procedure TForm1.FormCreate(Sender: TObject);
var i: integer;
begin
 for i:= low(panel) to high(panel) do begin
  panel[i]:= tpanel.Create(nil);
  panel[i].Caption:= 'дин '+ inttostr(i+1);
  panel[i].Top:= i*50;
  panel[i].Parent:= self
 end
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
 with (sender as tbutton) do
  CaptureClientImage(panel[tag].Handle,image1.Picture.Bitmap)
end;