Плавающие панельки
Страница 2. Комментарии

Страница 2 из 2
 

Комментарии

У меня есть один коментарий отностительно вышеприведенного кода: данная реализация сложней, чем она должна была быть. Все, что вы должны сделать - это обработать системное сообщение wm_NCHitTest. Я приведу здесь код, который я создал для Borland Tech Info, и который выполняет ту же функцию:

unit Dragmain;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
inherited;                    { вызвали наследованный дескриптор сообщения, }
if  M.Result = htClient then  { кликнув в области окна?                     }
M.Result := htCaption;      { если так, то мы заставили Windows думать,   }
{ что это область заголовка.                  }
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

end.


« Предыдущая страница - Следующая страница
 
« Предыдущая статья   Следующая статья »