[DKV]

Вот ещё вопрос: как сделать, чтобы форму можно было таскать за любое место самой формы, когда форма находится в режиме BorderStyle-bsNone
Заранее благодарен.

[Aristarh Dark]

код из drkb

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

unit DragMain;   interface   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;     procedure TForm1.Button1Click(Sender: TObject); begin Close; end; end.

[DKV]

Что-то не тянет выделяет во это “message wm_NCCHitTest;” может я что-то забыл дописать в проекте ?

[:S.p.a.m.]

Код:

1 2 3 4 5 6 7

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,   Y: Integer); const SC_DRAGMOVE = $F012; begin   ReleaseCapture;   Form1.Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0); end;

Либо делать все ручками если так не знаеш как. Обрабатывать события onMouseDown, -Up, -Move