VPF::Проблема методов скрытия программы при минимизации

Archon7th

Дата 4.5.2005, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 22.4.2005
Где: Витебск Белорусия

Репутация: нет
Всего: нет

я использую:

Trafic.dpr

Код


...
uses
  Windows
...
var
  ExtendedStyle : integer;
...
    ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
    SetWindowLong(Application.Handle, GWL_EXSTYLE,
    ExtendedStyle or WS_EX_TOOLWINDOW AND NOT WS_EX_APPWINDOW);
...

Код


procedure TfrmMain.FormPaint(Sender: TObject);
begin
  ShowWindow(application.Handle, SW_HIDE);
end;

всё работает так как мне нужно, до того момента пока я не сверну окошко ....

visible:=false - меня не устраивает

--------------------

CPU not found. Running software emulation.

Rouse_

Дата 4.5.2005, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 469
Регистрация: 23.4.2005

Репутация: 18
Всего: 29

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    procedure DoRestore(Sender: TObject);
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure SetToolApp;
begin
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE)
    or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
end;

procedure ResetToolApp;
begin
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE)
    and not WS_EX_TOOLWINDOW or WS_EX_APPWINDOW);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetToolApp;
  Application.OnRestore := DoRestore;
end;


procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType = SC_MINIMIZE then ResetToolApp;
  inherited;
end;

procedure TForm1.DoRestore(Sender: TObject);
begin
  SetToolApp;
end;

end.

Это сообщение отредактировал(а) Rouse_ - 4.5.2005, 13:36

--------------------

Vae Victis
(Горе побежденным (лат.))
Демо с открытым кодом: http://rouse.drkb.ru

Archon7th

Дата 4.5.2005, 14:03 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 107
Регистрация: 22.4.2005
Где: Витебск Белорусия

Репутация: нет
Всего: нет

thx ... маленький баг появился, но я справился ... всё работает ...

--------------------

CPU not found. Running software emulation.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »