Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by City Light,
31. Jan 2006
ups Hier hab ich ja noch etwas kleineres gefunden
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style:=bsClear;
Form1.BorderStyle:=bsNone;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by City Light,
31. Jan 2006
{
Dieses Beispiel macht ein Fenster zur Laufzeit transparent.
Sichtbar bleiben die Titelleiste und alle visuellen
Komponenten auf dem Fomular. Soll das Fenster gleich schon
zu Beginn transparent sein, muß dieser Quelltext im
OnCreate-Ereignis des Formluars aufgerufen werden.
}
procedure TForm1.Button1Click(Sender: TObject);
var