Форма остаётся видимой при Visible=False

[zvygin1964]

Сообщение от Алексей_2012

дабы добить ваши возможные вопросы

Вот, нашел ещё :

procedure TForm1.button1Click(Sender: TObject);
begin
if button4.Caption = 'спрятать' then
  begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;                           
// эти две скывают все, но форма как была так и есть, хоть и не видно.
  Form1.TransparentColorValue := clRed;
  Form1.transparentcolor := true;
  Form1.Color := clRed;
// эти три скрывают саму форму, теперь прям за кнопками можно производить действия
  button4.Caption := 'показать';
  end
else
  begin
  Form1.TransparentColorValue := clRed;
  Form1.transparentcolor := false;
  Form1.Color := clMenu;
  Form1.BorderStyle:=bsSizeable;
  form1.Brush.Style:=bsSolid;
  button4.Caption := 'спрятать';
  end;
end;

Form1 не видна, а работать с ней уже можно.

Переделал на:

unit Unit1;//Form1 не видно совсем, висит  Button  и управляет видимостью Form1.

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 if button1.Caption = 'спрятать' then
  begin
  Form1.Brush.Style := bsClear;
  Form1.BorderStyle := bsNone;                           
// эти две скывают все, но форма как была так и есть, хоть и не видно.
  Form1.TransparentColorValue := clRed;
  Form1.transparentcolor := true;
  Form1.Color := clRed;
// эти три скрывают саму форму, теперь прям за кнопками можно производить действия
  button1.Caption := 'показать';
  end
else
  begin
  Form1.TransparentColorValue := clRed;
  Form1.transparentcolor := false;
  Form1.Color := clMenu;
  Form1.BorderStyle:=bsSizeable;
  form1.Brush.Style:=bsSolid;
  button1.Caption := 'спрятать';
  end;
end;

end.