| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сделать невидимую форму? [D6]
QueenOfRain © (2002-04-04 10:41:00)Нужно сделать невидимую форму, с видимой кнопкой))))
Вы читала тут про прозрачную форму нерельно большой кусок, а помню, что вроде есть какая-то мулечка в три-четыре строки...
блин((... памагитеее, плиз))))))
Walker (2002-04-05 03:52:00) [1]позвольте простой пример:
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;
Alx2 (2002-04-04 15:29:00) [2]>QueenOfRain © (04.04.02 10:41)
А если у формы BorderStyle := bsNone и размером эту форму сделать размером с кнопку, чтобы она из-за нее не выглядывала?
wicked (2002-04-04 12:40:00) [3]а что, тот кусок не сработал?.... :)
напиши мне на мыло, скину пример... хотя он тоже не в три строчки...
| |
