soweit funktioniert das alles danke dafür schonmal aber ich bekomme das nicht compiliert ....
Zitat:
[DCC Fehler] Unit1.pas(54): E2008 Inkompatible Typen
betreffende stelle
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Color := clRed;
try
//Bitmap erstellen
//Fehler
AssignFile(Bmp, '
testbmp.bmp');
//Fehler
//Größe des Formulars an Bitmap anpassen
ClientHeight := Bmp.Height;
ClientWidth := Bmp.Width;
//Region erstellen
RGN := CreateRGN(Bmp, Bmp.Canvas.Pixels[0, 0]);
//Zeichenbereich eines Fensters setzen
SetWindowRGN(
Handle, RGN, True);
finally
Bmp.Free;
end;
end;
end.