Как таскать форму за ее поверхность?

← →
Ms.Drynkul (2004-09-03 09:02) [0]

В Delphi Russian Knowledge Base было следующее:
----------------------------------------
uses
SysUtils, WinTypes, WinProcs, Messages,
Classes, Graphics, Controls, Forms, Dialogs, StdCrtls;

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

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1. WMNCHitTest(var M: TWMNCHitTest);

begin
inherited;
if M.Result = htClient then
M.Result := htCaption;
end;
----------------------------------------
но происходят ошибки при компиляции.

← →
КаПиБаРа © (2004-09-03 09:32) [1]

Ms.Drynkul (03.09.04 9:02)
wm_NCHitTest

=================================== На запрос "арфаграфический славарь" найдено 1887212 ссылок... ===================================

← →
BillyJeans (2004-09-03 10:26) [2]

менять htClient на htCaption, считаю извращением!
А если на форме контролы тогда что?

← →
clickmaker © (2004-09-03 11:00) [3]

> [2] BillyJeans (03.09.04 10:26)
> менять htClient на htCaption, считаю извращением!
> А если на форме контролы тогда что?

если на форме контролы мышинные сообщения попадут прямо к ним

← →
BillyJeans (2004-09-03 11:13) [4]

2 clickmaker © (03.09.04 11:00) [3]

ну ну...

← →
MetalFan © (2004-09-03 12:13) [5]

стаарый пример. есть в куче мест.
procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DragMove = $F012; { a magic number } begin ReleaseCapture; Form1.perform(WM_SysCommand, SC_DragMove, 0); end;

> менять htClient на htCaption, считаю извращением!
Считайте. А мы будет пользоваться.

PS. Разнообразие интерфейса безгранично.

← →
Ms.Drynkul (2004-09-03 14:41) [7]

Спасибо,дорохые мои!

Как таскать форму за ее поверхность? Найти похожие ветки