Скачать: CL | DM;

Перемещение формы, у которой свойство 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;

---

← →
Германн ©   (2008-02-15 01:23) [8]

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

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

---

← →
Григорьев Антон ©   (2008-02-15 08:42) [9]

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

---

← →
KilkennyCat ©   (2008-02-16 01:30) [10]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.009 c