Главная страница
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.041 c
4-1106171583
ввх
2005-01-20 00:53
2005.03.13
Как получить серийный номер материнской платы


3-1108038233
midavik
2005-02-10 15:23
2005.03.13
Время выполнения запроса.


4-1102996884
school
2004-12-14 07:01
2005.03.13
диологи открытия-закрытия файлов


3-1108127226
Max Zyuzin
2005-02-11 16:07
2005.03.13
Посоветуйте чем лучше состыковывать Delphi 7 и MSSQL


14-1108743112
Nic87
2005-02-18 19:11
2005.03.13
Помогите найти песню