Скачать: CL | DM;

Как заставить окно минимизироваться на месте, а не над пан. задач   Найти похожие ветки 

← →
SerKom   (2005-03-11 06:45) [0]

Как заставить окно минимизироваться на месте, а не над панелью задач, когда на кнопку "Свернуть" нажимаешь?

---

← →
SerKom   (2005-03-11 07:00) [1]

Я имею ввиду не главные окна (в SDI-интерфейсе)?

---

← →
_1   (2005-03-11 11:34) [2]

uses
 Windows, Messages;

type
 TForm = class(TForm)
 private
   { Private declarations }
 procedure OnSysCommand(var Msg: TWMSysCommand); Message WM_SYSCOMMAND;
 public
   { Public declarations }
 end;

var
 Form: TForm;

implementation

{$R *.dfm}
procedure TForm.OnSysCommand(var Msg: TWMSysCommand);
begin
 if Msg.CmdType = SC_MINIMIZE then
   Application.Minimize
 else
   inherited;
end;

end.

---

← →
DiamondShark ©   (2005-03-11 11:53) [3]

> _1   (11.03.05 11:34) [2]

Иногда лучше жевать...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.025 c