Формы

← →
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 означает?

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

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

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

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