Form Transparent aber Komponenten sichtbar?

[robinWie]

Hi,
wie kann man das Bewerkstelligen das die Form unsichtbar ist und nur die Komponenten angezeigt werden? Ich kenne zwar diese möglichkeit

Delphi-Quellcode:

Form1.AlphaBlend := True;
Form1.AlphaBlendValue := 0

aber da habe ich das Problem das die Komponenten auch nicht angezeigt werden.

Danke im Voraus.

[Der_Unwissende]

Hi,
benutz eine Transparente Farbe, färbe das Form entsprechend und sorge dafür, dass die Komponenten eine andere Farbe haben. Hoffe das reicht dir.

Gruß Der Unwissende

[City Light]

Delphi-Quellcode:

{
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
FormRegion,TempRegion: hRgn;
I: Integer;
Rect: TRect;
begin
FormRegion := 0;
for I := 0 to ControlCount - 1 do begin
Rect := Controls[I].BoundsRect;
OffsetRect(Rect, ClientOrigin.X - Left, ClientOrigin.Y - Top);
TempRegion := CreateRectRgnIndirect(Rect);
if FormRegion = 0 then
FormRegion := TempRegion
else begin
CombineRgn(FormRegion, FormRegion, TempRegion, RGN_OR);
DeleteObject(TempRegion);
end;
end;
TempRegion := CreateRectRgn(0, 0, Width,
GetSystemMetrics(SM_CYCAPTION) +
GetSystemMetrics(SM_CYSIZEFRAME) +
GetSystemMetrics(SM_CYMENU) *
Ord(Menu <> NIL));
CombineRgn(FormRegion, FormRegion, TempRegion, RGN_OR);
DeleteObject(TempRegion);
SetWindowRgn(Handle, FormRegion, True);
end;

[City Light]

ups Hier hab ich ja noch etwas kleineres gefunden

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Brush.Style:=bsClear;
    Form1.BorderStyle:=bsNone;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Terminate;
end;

[robinWie]

Bei FormCreate wird bei mir auch die Titelleiste dargestellt. Aber das finde ich nicht schlimm. Danke für eure Blitzantworten