Ich glaube, das meinte er auch nur eher als Witz. Aber wenn ich dich nicht falsch verstehe können wir uns ein "SaveToFile" doch so selber bauen, oder?
Delphi-Quellcode:
type
TWinControlHelper =
class helper
for Vcl.Controls.TWinControl
public
procedure SaveToFile(
const fileName:
String);
virtual;
end;
procedure TWinControlHelper.SaveToFile(
const fileName:
String);
var
DC: HDC;
bmp: TBitmap;
begin
DC := GetWindowDC(
Handle);
try
bmp := TBitmap.Create();
try
bmp.SetSize(ClientWidth, ClientHeight);
BitBlt(
bmp.Canvas.Handle,
0, 0, bmp.Width, bmp.Height,
DC, 0, 0,
WinApi.Windows.SRCCOPY
);
bmp.SaveToFile(fileName);
finally
bmp.Destroy();
end;
finally
ReleaseDC(
Handle,
DC);
end;
end;
Der Button2 sagt
Delphi-Quellcode:
procedure TForm15.Button2Click(Sender: TObject);
begin
GroupBox1.SaveToFile('x:\myGroupbox.bmp);
end;
. Was dabei herauskommt siehst du im Anhang. Ist doch richtig so, oder?