Форма

[MAcK]

Как сделат форму невимой, а компоненты были видны?

[Toxa]

Сообщение от MAcK

Как сделат форму невимой, а компоненты были видны?

попробуй поставить цвет формы например clFuchsia, свойство transparentcolor=true и transparentcolorvalue=clFuchsia.

[Virtson]

работает , но не в 9x и Me

[execom]

попробуй поставить цвет формы например clFuchsia, свойство transparentcolor=true и transparentcolorvalue=clFuchsia.

Цвет можно любой! Но вообще при этом смотрится как-то нечитаемо... Лучше так не делай, а то конечный пользователь твоей проги тебе спасибо не скажет...

[psyke]

unit unit1;
  interface
  uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;
  type
  TForm1 = class(TForm)
  Button1: TButton;
  Button2: TButton;
  protected
  procedure RebuildWindowRgn;
  procedure Resize; override;
  public
  constructor Create(AOwner: TComponent); override;
  end;
  var
  Form1 : TForm1;
  implementation
  {$R *.DFM}
  constructor TForm1.Create(AOwner: TComponent);
  begin
  inherited;
  HorzScrollBar.Visible:= False;
  VertScrollBar.Visible:= False;
  RebuildWindowRgn;
  end;
procedure TForm1.Resize;
  begin
  inherited;
  RebuildWindowRgn;
  end;
procedure TForm1.RebuildWindowRgn;
  var
  FullRgn, Rgn: THandle;
  ClientX, ClientY, I: Integer;
  begin
  ClientX:= (Width - ClientWidth) div 2;
  ClientY:= Height - ClientHeight - ClientX;
  FullRgn:= CreateRectRgn(0, 0, Width, Height);
  Rgn:= CreateRectRgn(ClientX, ClientY, ClientX + ClientWidth, ClientY +
  ClientHeight);
  CombineRgn(FullRgn, FullRgn, Rgn, rgn_Diff);
  for I:= 0 to ControlCount -1 do
  with Controls[I] do begin
  Rgn:= CreateRectRgn(ClientX + Left, ClientY + Top, ClientX + Left +
  Width, ClientY + Top + Height);
  CombineRgn(FullRgn, FullRgn, Rgn, rgn_Or);
  end;
  SetWindowRgn(Handle, FullRgn, True);
  end;
  end.

Думаю, поможет