Перетаскивание окон

← →
-= ALEX =- (2003-01-21 16:46) [0]

Помогите пожалуйста, как перетаскивать окна за любую часть окна!
Заранее благодарен!

← →
Kladov (2003-01-21 20:33) [1]

Открыть kol.pas и выполнить поиск слова "drag".

← →
Саня (2003-02-06 16:52) [2]

Это пример формы без заголовка и возможностью перетаскивания
окна хватаясь за любую его часть:

uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
private
{ Private declarations }
protected
procedure \\Здесь перехватывается сообщение
WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
( var Params: TCreateParams)
Это пример формы без заголовка и возможностью перетаскивания
окна хватаясь за любую его часть:

uses
SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;

type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
private
{ Private declarations }
protected
procedure \\Здесь перехватывается сообщение
WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
public
{ Public declarations }
procedure \\И здесь
CreateParams(var Params: TCreateParams); override;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
Message.Result := HTCAPTION;
end;

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.Style := WS_THICKFRAME or WS_POPUP;
end;

end.

← →
Gandalf (2003-02-06 22:41) [3]

Пример хорош, нет слов, но причем тут КОЛ?! Вариант с КОЛ был рассмотрен в форуме, работало, ищи.

В FAQ есть пример.

Перетаскивание окон Найти похожие ветки