| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Stay On Top
Leviathan © (2001-12-06 21:13:00)Приветствую мастеров. Задача такая: нужно написать программу, которая будет видна на верху всегда, т.е. даже тогда, когда экран захватывает какая-нибудь игрушка. Можно ли это сделать и, если да, то как?
Andrey Klimov (2002-01-30 12:02:00) [1]...
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
...
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
Inherited CreateParams(Params);
Params.WndParent := GetDesktopWindow;
end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
inherited; // Create(AOwner);
end;
...
procedure TForm1.FormShow(Sender: TObject);
begin
with Form1 do
SetWindowPos(Handle,
HWND_TOPMOST,
Left,
Top,
Width,
Height,
SWP_NOACTIVATE);
end;
Leviathan (2001-12-08 18:38:00) [2]Вот в том то и дело, что например Half-Life"у фиолетово какой у моей проги FormStyle. Нужно, видимо, получить исключительный доступ к части экрана, но как это сделать?
Rem (2001-12-08 17:04:00) [3]На всякий fsStayOnTop свой fsStayOnTop найдется 8(
$Hic0 (2001-12-08 14:58:00) [4]:))Просто указываешь проперти FormStyle в fsStayOnTop
| |
