form1.brush.style

[taktaky]

Delphi-Quellcode:

//Form unsichtbar machen
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Brush.Style:=bsClear;
    Form1.BorderStyle:=bsNone;
end;

// Form wieder sichtbar machen 
procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.brush.style := bssolid; //Was soll hier sein (wie vorher war)
  //Form1.Brush.Style := bsDiagCross;
  //Form1.Brush.Style :=bsFDiagonal;
    Form1.BorderStyle := bsSizeable; // ok
end;

[turboPASCAL]

Zitat:

//Was soll hier sein (wie vorher war)

:gruebel: Ja.
Aber man(n) kann Fragen stellen die mit etwas mehr Informationen enthalten um anderen das
Antworten zu erleichtern!

[taktaky]

Zitat:

Zitat von turboPASCAL

Zitat:

//Was soll hier sein (wie vorher war)

:gruebel: Ja.
Aber man(n) kann Fragen stellen die mit etwas mehr Informationen enthalten um anderen das
Antworten zu erleichtern!

Mit dem Code, kann man das Form transparent machen

Delphi-Quellcode:

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

Un nun möchte ich mein Form wieder sichtbar machen mehr nicht :mrgreen:

<>

[DeddyH]

Hast Du Dir schon einmal die Properties AlphaBlend und AlphaBlendValue angeschaut?

[taktaky]

Zitat:

Zitat von DeddyH

Hast Du Dir schon einmal die Properties AlphaBlend und AlphaBlendValue angeschaut?

Danke :thumb:
gelöst so :

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
AlphaBlend:=false;
AlphaBlendValue :=255 //  0 bis 255
end;

<>