Главная страница
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.044 c
1-1109367619
Zoth
2005-02-26 00:40
2005.03.13
Делфи и мобильник


3-1107861186
Mamed
2005-02-08 14:13
2005.03.13
MSSQL 7 i transacchiya


14-1108762029
Profi
2005-02-19 00:27
2005.03.13
Глобальный катаклизм


1-1109509552
ser35
2005-02-27 16:05
2005.03.13
Почему активна кнопка?


4-1107253055
grigory
2005-02-01 13:17
2005.03.13
Как по процессу узнать заголовок окна?