Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.13;
Скачать: CL | DM;

Вниз

Спрятать окно при сворачивании   Найти похожие ветки 

 
Shanker   (2005-02-25 17:00) [0]

Нужно, чтобы по нажатию клавиши в шапке окна Свернуть окно на самом деле не сворачивалось, а пряталось.
Пробовал использовать ShowWindow - в событии OnMinimize - оказалось, сначала сворачивает, а потом посылает окну сообщение :(


 
olookin ©   (2005-02-25 17:14) [1]

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
 TForm1 = class(TForm)
   procedure FormCreate(Sender: TObject);
 private
   { Private declarations }
 public
   procedure OnMin(Sender: TObject);
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.OnMin(Sender: TObject);
begin
 ShowWindow(Form1.Handle,SW_RESTORE); Form1.Hide;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 application.OnMinimize:=OnMin;
end;

end.



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

Текущий архив: 2005.03.13;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.058 c
9-1102615446
Макс
2004-12-09 21:04
2005.03.13
Обновление glscene.


1-1109236934
X9
2005-02-24 12:22
2005.03.13
Трабла со сворачиванием


14-1108986537
Магнит
2005-02-21 14:48
2005.03.13
вопрос обладателям КПК


11-1088968274
Sagrer
2004-07-04 23:11
2005.03.13
Запись инфы из ключа реестра в файл


14-1109088492
}|{yk
2005-02-22 19:08
2005.03.13
Тестирование кода