PDA

Просмотр полной версии : [Помогите!] Помогите с всплывающим окном [delphi]


=PaLeTiZaToR=
14.03.2012, 20:41
Как сделать всплывающее окно в правом нижнем углу экрана (размеры экрана не фиксированы, т.е разные экраны)
Пример: [Ссылки могут видеть только зарегистрированные и активированные пользователи] ([Ссылки могут видеть только зарегистрированные и активированные пользователи])

Dinmaite
15.03.2012, 10:06
Определить размер экрана, определить размер панели задач, вывести окно.

R.A.Z.O.R.
15.03.2012, 15:37
Делал так:

var H: THandle;
R: TRect;
begin
H := FindWindow('Shell_TrayWnd',nil);
GetWindowRect(H,R);
Form1.Top := Screen.Height - Form1.Height - (R.Bottom-R.Top);
Form1.Left := Screem.Width - Form1.Width;
end;