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

Формы   Найти похожие ветки 

← →
Anderson   (2004-08-27 19:28) [0]

Как сделать так, чтобы при перетаскивании первой формы, координаты второй формы автоматически изменялись? И ещё: какое свой-во нужно изменить у формы, чтобы её нельзя было перетаскивать?

---

← →
grom   (2004-08-29 16:40) [1]

нельзя было перетаскивать
Align:=alCustom

---

← →
jack128 ©   (2004-08-29 17:17) [2]

> нельзя было перетаскивать
> Align:=alCustom
нету такого.

> Как сделать так, чтобы при перетаскивании первой формы,
> координаты второй формы автоматически изменялись?
прехватывать сообщение WM_MOVE и перемещать вторую форму

> какое свой-во нужно изменить у формы, чтобы её нельзя было
> перетаскивать?
свойство я такое не нашел, а на вскидку вот что получилось
type
 TForm1 = class(TForm)
 private
   { Private declarations }
   procedure WmMoving(var Message: TMessage); message WM_MOVING;
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.wmMoving(var Message: TMessage);
begin
 PRect(Message.lParam)^ := BoundsRect;
 inherited;
end;

---

← →
GuAV ©   (2004-08-29 19:16) [3]

> нету такого.

в D5 нет?

---

← →
jack128 ©   (2004-08-29 19:19) [4]

GuAV ©   (29.08.04 19:16) [3]
нет. alTop, alLeft, alRight, alBotom, alNone, alClient

---

← →
jack128 ©   (2004-08-29 19:20) [5]

jack128 ©   (29.08.04 19:19) [4]
GuAV ©   (29.08.04 19:16) [3]
а что alCustom означает?

---

← →
GuAV ©   (2004-08-29 19:23) [6]

alCustom The control’s positioning is determined by calls to its parent"s CustomAlignInsertBefore and CustomAlignPosition methods.

не знаю, не юзал. но он есть.

---

← →
GuAV ©   (2004-08-29 19:27) [7]

Понял. Они сортируются
function CustomAlignInsertBefore(C1, C2: TControl): Boolean; virtual;
Потом выводтся в этом порядке
procedure CustomAlignPosition(Control: TControl; var NewLeft, NewTop, NewWidth, NewHeight: Integer; var AlignRect: TRect); virtual;

---

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

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



Память: 0.46 MB
Время: 0.023 c