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)

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

[taktaky]

Zitat von turboPASCAL:

Zitat:

//Was soll hier sein (wie vorher war)

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

<>

[DeddyH]

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

[taktaky]

Zitat von DeddyH:

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

Danke
gelöst so :

Delphi-Quellcode:

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

<>