|
Платные хостинги
Раскрутка сайта
Книги по программированию
Проблема методов скрытия программы при минимизации, SW_HIDE и подобные методы
- я использую: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);...highlightSyntax('delphiTEwNWF','delphi');Код procedure TfrmMain.FormPaint(Sender: TObject);begin ShowWindow(application.Handle, SW_HIDE);end;highlightSyntax('delphiWViMDM','delphi');всё работает так как мне нужно, до того момента пока я не сверну окошко ....visible:=false - меня не устраивает
- Код unit Unit1;interfaceuses 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.highlightSyntax('delphijZDQ4N','delphi'); Это сообщение отредактировал Rouse_ - 4.5.2005, 13:36
- thx ... маленький баг появился, но я справился ... всё работает ...
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
