сделать перетаскиваемую форму за любое место

← →
pound © (2007-01-15 17:29) [0]

Подскажите, как сделать перетаскиваемую форму за любое место.
Кладу на форму TSpeedButton
Делаю форму за любое место.
type
TForm1 = class(TForm) private
sbMyButton: TSpeedButton;
private { Private declarations }
procedure WMNCHITTEST(var Msg: TMessage); message WM_NCHITTEST;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Handle, GWL_STYLE,
GETWINDOWLONG(Handle, GWL_STYLE) and (not WS_CAPTION));
Height := ClientHeight;
end;
implementation

{$R *.dfm}

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
inherited;
Msg.Result := HTCAPTION;
end;
Результат: sbMyButton перестаёт работать.
TButton работает, но мне нужен именно TSpeedButton.

← →
unknown © (2007-01-15 17:35) [1]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: integer); begin ReleaseCapture; Perform(WM_SYSCOMMAND, $F012, 0); end;

сделать перетаскиваемую форму за любое место Найти похожие ветки