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

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

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

Формы

Anderson © (2004-08-27 19:28:00)
Как сделать так, чтобы при перетаскивании первой формы, координаты второй формы автоматически изменялись? И ещё: какое свой-во нужно изменить у формы, чтобы её нельзя было перетаскивать?

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

GuAV (2004-08-29 19:23:00) [2]
alCustom The control’s positioning is determined by calls to its parent's CustomAlignInsertBefore and CustomAlignPosition methods.

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

jack128 (2004-08-29 19:20:00) [3]
jack128 © (29.08.04 19:19) [4]
GuAV © (29.08.04 19:16) [3]
а что alCustom означает?

jack128 (2004-08-29 19:19:00) [4]
GuAV © (29.08.04 19:16) [3]
нет. alTop, alLeft, alRight, alBotom, alNone, alClient

GuAV (2004-08-29 19:16:00) [5]

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

в D5 нет?

jack128 (2004-08-29 17:17:00) [6]

> нельзя было перетаскивать
> 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;

grom (2004-08-29 16:40:00) [7]
нельзя было перетаскивать
Align:=alCustom

Наверх

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