Невидимая форма с видимыми элементами

[Кольша]

Всем привет я понимаю что вопрос может показаться глупым
но все же как сделать форму невидимой а элементы видимыми
TransparentColor не подходит и Brush.Style:=bsClear; тоже не подходит.

[mihali4]

Установим Form.TransparentColor:=True;
Выберем Form.TransparentColorValue:=Form.Co lor;

[Кольша]

я же написал этот способ не подходит

[mihali4]

А самому модернизировать ? Или привычка такая - все готовенькое получать ?

Предварительно в свойствах формы установим :
Form->Color->clRed
Form->TransparentColorValue->clRed
Form->TransparentColor->False

Затем :

procedure TForm101.FormCreate(Sender: TObject);
begin
TransparentColor:=not(TransparentColor);
end;

[antonn]

и в чем заключается эта "модернизация"?

[MyLastHit]

Беспокоит другое - почему нельзя использовать TransparentColor + bsnone, даже не могу придумать такой ситуации где бы это было бы нереализуемо.

[antonn]

наверное не устраивают возможности, а не сложности реализации

[Афанасий[vedma]]

вот так:

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  pos, perc: Integer;
begin
  pos := tbAlpha.Position;
  AlphaBlendValue := pos;
  perc := pos * 100 div 255;
  lblCurAlpha.Caption := IntToStr(pos) + ' èç 255 (' + IntToStr(perc) + '%)';
end;

//Включаем прозрачность

procedure TForm1.Button1Click(Sender: TObject);
begin
  if AlphaBlend then chkEnableAlpha.Checked := False;
  AlphaBlendValue := 255;
  AlphaBlend := True;
  Refresh;
  isInc := False;
  Timer1.Enabled := True;
  cmbHideAndShow.Enabled := False;
  tbAlpha.Enabled := False;
  chkEnableAlpha.Enabled := False;
end;

[Aliens_wolfs]

Тут нужно работать с регионами. Нашел простенький пример, форма будет невидимая, а все элементы на ней видимыми, может пригодится вам этот пример.

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

//Процедура создания региона
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);
  // создаем регион для клиентской части формы
  // и вычитаем его из FullRgn
  Rgn:=CreateRectRgn(ClientX, ClientY, ClientX+ClientWidth,
                                            ClientY+ClientHeight);
  CombineRgn(FullRgn, FullRgn, Rgn, rgn_Diff);
  // теперь добавляем к FullRgn регионы каждого контрольного элемента
  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;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // убираем сколлбары
  HorzScrollBar.Visible:=false;
  VertScrollBar.Visible:=false;
  // строим новый регион при создании
  RebuildWindowRgn;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  // строим новый регион при изменениях размеров
  RebuildWindowRgn;
end;

[Sparkman]

Может быть тс имел в виду форму с изменяемой прозрачностью, но не прозрачные контроллы. Потому как при изменении AlphaBlendValue прозрачными становятся и все контроллы, расположенные на форме.

немного поковырялся, и ничего интересного не нашел, разве что поизвращаться и создать поверх формы с изменяемой прозрачностью (AlphaBlend = true), полностью прозрачную форму (Transparent = true) форму, на которой будут расположены контроллы