jetzt satgt er mir:
no identifier found for xxx / Temp
als was muß das deklariert werden ?
var xxx : ???
var Temp : ???
Sorry bin nicht unbedingt der fitteste
EDIT:
var Temp: TBitmap;
aber xxx ?
EDIT 2: arg denke mal das war das: Image1.Picture
Delphi-Quellcode:
procedure TForm7.Button3Click(Sender: TObject);
var Temp: TBitmap;
begin
Form7.Visible := False;
Sleep(1000);
// ScreenShot(Image1.Picture.BitMap);
Temp:=TBitmap.Create;
Temp:=Image1.Picture.Bitmap;
ScreenShot(Temp);
Image1.Picture.Bitmap:=Temp;
Temp.Free;
Form7.Visible := True;
end;
allerdings bekomme cih dann beim compilen:
Project Editor raised exteption class 'External: SIGSEGV'.
danach dann:
Die Datei "i386.inc" wurde nicht gefunden ?