Перемещение формы, у которой свойство BorderStyle:=bsNone

← →
Rentner (2008-02-14 23:31) [0]

Подскажите кто может, как можно сделать доступной для перемещения по рабочему столу мышью форму, у которой свойство BorderStyle:=bsNone.

← →
KilkennyCat © (2008-02-14 23:34) [1]

а что ответил гугль?

← →
homm © (2008-02-14 23:35) [2]

Нужно ответить на кокой-то там hint test, что пользователь жахнул по заголовку.

← →
KilkennyCat © (2008-02-14 23:37) [3]

а гугль ответил:
примерно 19 700 для перемещение формы без заголовка delphi. (0,27 секунд)

← →
homm © (2008-02-14 23:41) [4]

> [3] KilkennyCat © (14.02.08 23:37)
> а гугль ответил:

Да, складно получилось :) Но я писал [2] безотносительно гугля :)

← →
KilkennyCat © (2008-02-14 23:42) [5]

> [2] homm ©

возьми с полки пирожок :)

procedure TForm1.WMNCHITTEST(var Msg: TMessage);
begin
Msg.Result:=HTCAPTION;
end;

← →
KilkennyCat © (2008-02-14 23:43) [6]

> [4] homm © (14.02.08 23:41)

ага :)

← →
antonn © (2008-02-15 00:46) [7]

procedure TForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); const SC_DRAGMOVE : Longint = $F012; begin ReleaseCapture; SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); end;

> KilkennyCat © (14.02.08 23:37) [3]
>
> а гугль ответил:
> примерно 19 700 для перемещение формы без заголовка delphi.
> (0,27 секунд)
>

И среди этих 19 700 есть только два верных. Которые приведены в [5] и в [7].

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=83 , компонент TCaptionRgn

> [7] antonn © (15.02.08 00:46)

О, Магик! обожал издеваться с этой константой... позволяет и отдельные контролы таскать и размеры их менять....

Перемещение формы, у которой свойство BorderStyle:=bsNone Найти похожие ветки