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;