Hallo,
euer Vorschlag haut irgendwie nicht hin.
Ich habe folgenden Codeauszug ins Programm implementiert und angepasst, sowie das als
Hintergrundbild erscheinende Bitmap in das Verzeichnis des Programmes kopiert.
Und es passiert nichts. Auch nicht durch einige Ereigniszuweisungen im Objektinspektor.
Code:
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private-Deklarationen }
TheGraphic: TBitmap; { Deklaration für die Grafik }
public
{ Public-Deklarationen }
end;
var Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormPaint(Sender: TObject); { Ereignisbehandlungsroutine für OnPaint }
begin
Form1.Canvas.Draw(0, 0, TheGraphic); { Grafik auf der Zeichenfläche ausgeben }
end;
procedure TForm1.FormCreate(Sender: TObject); { Ereignisbehandlungsroutine für OnCreate }
begin
TheGraphic := TBitmap.Create; { Bitmap-Objekt erzeugen }
TheGraphic.LoadFromFile('C:\Dokumente und Einstellungen\Thorsten Fricke\Desktop\SCHATTENWURFDETEKTOR2'); { Bitmap aus Datei laden }
end;
Vielleicht war ich mit meiner Fragestellung auch etwas undeutig:
Es soll der Inhalt eines Bitmaps oder Jpeg`s beim Start des Programms als Formblatt-
hintergrundbild zu sehen sein, da der Graue Hintergrund sehr triste ist.
Danke nochmal für eure Hilfe im voraus
Gruß
Thorsten