Zitat von
Pascal95:
Liegt es daran, dass cih mit Lazarus arbeite?
Wahrscheinlich ja. Guck mal hier:
Zitat:
Ein Bildschirmfoto erstellen
Seit Lazarus 0.9.16 können sie die LCL verwenden um plattformunabhängig Bildschirmfotos aufzunehmen. Der folgende Beispielcode zeigt es (funktioniert unter GTK2 und
Win32, aber gegenwärtig nicht unter GTK1):
Delphi-Quellcode:
uses LCLIntf, LCLType;
...
var
MyBitmap: TBitmap
ScreenDC: HDC;
begin
MyBitmap := TBitmap.Create;
ScreenDC := GetDC(0);
MyBitmap.LoadFromDevice(ScreenDC);
ReleaseDC(ScreenDC);
...
aus:
http://wiki.lazarus.freepascal.org/D...foto_erstellen
In deinem Fall würde ich es so umändern: Du hast ein Image1 auf dem Forumlar, und dann:
Delphi-Quellcode:
var ScreenDC:HDC;
begin
ScreenDC:= GetDC(0);
Image1.bitmap.loadFromDevice(ScreenDC);
ReleaseDC(ScreenDC);
...