Как сделать невидимую форму?

← →
QueenOfRain © (2002-04-04 10:41) [0]

Нужно сделать невидимую форму, с видимой кнопкой))))

Вы читала тут про прозрачную форму нерельно большой кусок, а помню, что вроде есть какая-то мулечка в три-четыре строки...
блин((... памагитеее, плиз))))))

← →
wicked © (2002-04-04 12:40) [1]

а что, тот кусок не сработал?.... :)
напиши мне на мыло, скину пример... хотя он тоже не в три строчки...

← →
Alx2 © (2002-04-04 15:29) [2]

>QueenOfRain © (04.04.02 10:41)
А если у формы BorderStyle := bsNone и размером эту форму сделать размером с кнопку, чтобы она из-за нее не выглядывала?

позвольте простой пример:

const F_Transperent: boolean = FALSE; procedure TForm1.Button1Click(Sender: TObject); var r1: hRgn; p: TPoint; begin F_Transperent:=not F_Transperent; if F_Transperent then with Button1 do begin p:=Button1.ClientToScreen(Point(Left, Top)); p.X:=p.X-Left-Form1.Left; p.Y:=p.Y-Top-Form1.Top; r1 := CreateRectRgn(p.X, p.Y, p.X+Width, p.Y+Height); SetWindowRgn(Form1.Handle, r1, true); end else SetWindowRgn(Form1.Handle, 0, true); end;

Как сделать невидимую форму? Найти похожие ветки