コンボボックスでパネルのイメージを取得するには

Question

パネルのイメージをキャプチャする必要があります。

私が取り組んでいる問題は、パネルにTComboboxが含まれているとテキストが表示されないということです。

procedure AssignPanelImageToPicture(Panel : TPanel;Image : TImage); 
var 
B : TBitmap; 
begin 
B := TBitmap.Create; 
try 
    B.Width := Panel.Width; 
    B.Height := Panel.Height; 
    B.Canvas.Lock; 
    Panel.PaintTo(B.Canvas.Handle,0,0); 
    B.Canvas.Unlock; 
    Image1.Picture.Assign(B); 
    finally 
    B.Free; 
    end; 
end; 

このコードを使用して、TComboBoxを含むパネルをドロップします。次に、テキストプロパティに値を入力します。私はまた、次の2つのTImageをドロップします。次に、上記の コードを呼び出すためのボタンを追加します。ここで

は結果である：

は、パネルの真の画像をキャプチャするための良い方法はあります。

Answer 1

GetDCとBitBltの機能はどうですか？

procedure AssignPanelImageToPicture(Panel : TPanel;Image : TImage); 
var 
B : TBitmap; 
SrcDC: HDC; 
begin 
B := TBitmap.Create; 
try 
    B.Width := Panel.Width; 
    B.Height := Panel.Height; 
    SrcDC := GetDC(Panel.Handle); 
    try 
    BitBlt(B.Canvas.Handle, 0, 0, Panel.ClientWidth, Panel.ClientHeight, SrcDC, 0, 0, SRCCOPY); 
    finally 
     ReleaseDC(Panel.Handle, SrcDC); 
    end; 
    Image.Picture.Assign(B); 
finally 
    B.Free; 
    end; 
end;