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

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

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

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

Rentner © (2008-02-14 23:31:00)
Подскажите кто может, как можно сделать доступной для перемещения по рабочему столу мышью форму, у которой свойство BorderStyle:=bsNone.

KilkennyCat (2008-02-16 01:30:00) [1]
> [7] antonn © (15.02.08 00:46)

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

Григорьев Антон (2008-02-15 08:42:00) [2]
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=83, компонент TCaptionRgn

Германн (2008-02-15 01:23:00) [3]

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

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

antonn (2008-02-15 00:46:00) [4]
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 (2008-02-14 23:43:00) [5]
> [4] homm © (14.02.08 23:41)

ага :)

KilkennyCat (2008-02-14 23:42:00) [6]

> [2] homm ©

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

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

homm (2008-02-14 23:41:00) [7]
> [3] KilkennyCat © (14.02.08 23:37)
> а гугль ответил:

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

KilkennyCat (2008-02-14 23:37:00) [8]
а гугль ответил:
примерно 19 700 для перемещение формы без заголовка delphi. (0,27 секунд)

homm (2008-02-14 23:35:00) [9]
Нужно ответить на кокой-то там hint test, что пользователь жахнул по заголовку.

KilkennyCat (2008-02-14 23:34:00) [10]
а что ответил гугль?

Наверх

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