Wie kann ich ein transparentes Fenster erzeugen?
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
| procedure TForm1.FormCreate(sender: TObject); begin Form1.Brush.Style:=bsClear; Form1.BorderStyle:=bsNone; end;
procedure TForm1.BitBtn1Click(Sender: TObject); begin Application.Terminate; end; |
Falls du ein Bild als Hintergrund legen möchtest empfehle ich dir aber auf jeden Fall eine andere Technik zu verwenden, nähmlich die Form so 'auszuschneiden' das alles was nicht gezeigt werden soll weggeschnitten wird.
Moderiert von
Tino: Code- durch Delphi-Tags ersetzt.
Von allen Dingen die ich verloren habe trauere ich meinem Verstand am meisten nach.