Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[asm, c++, delphi]Окно за которое не спрячешься 15.05.03 13:22 Число просмотров: 1170
Автор: Cyril <sc> Статус: Member Отредактировано 15.05.03 13:23 Количество правок: 1
|
> Возможно ли сделать окно таким, чтобы другие окна при > деактивации не прятались за него, а становились неактивными > на его фоне? И если это можно, то как? Так же как десктоп. Да это возможно, для этого необходимо обрабатывать
сообщение WM_MouseActivate
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
procedure WM_MouseActivateEvent(var Message : TWMMouseActivate); message WM_MouseActivate;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.WM_MouseActivateEvent(var Message: TWMMouseActivate);
begin
Message.Result := MA_NOACTIVATE;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WindowState := wsMaximized;
BorderStyle := bsNone;
end;
end.
---
|
|
|