Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

-= ALEX =- © (2003-01-21 16:46:00)

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

SPeller (2003-02-06 23:55:00) [1]

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

Gandalf (2003-02-06 22:41:00) [2]

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

Саня (2003-02-06 16:52:00) [3]

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

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.

Kladov (2003-01-21 20:33:00) [4]

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »