Два окна.

← →
123451 (2007-01-06 21:35) [0]

Есть два окна: Form1 и Form2, они оба мозданы и видимы. Как сделать так, что бы во время перемещения по экрану первого окна, второе следовало за ним незамедлительно? Т.е. Двигаешь Form1 по экрану и Form2 "едет" за ним.

← →
kaZaNoVa © (2007-01-06 21:42) [1]

нууууу типа setwindowpos наверное

← →
trubin © (2007-01-06 21:46) [2]

Для Form1 ловить сообщение WM_Move:

procedure WMMove(var Message: TWMMOVE); message WM_MOVE;

и устанавливать для Form2 новые значения свойств Left, Top.

← →
-DeBUGGeR- © (2007-01-06 21:48) [3]

ну на событие когда форму Form1 двигают пишешь (не помню что за событие, но можешь поставить и на OnPaint):
Form2.Left := Form1.Left;
Form2.Top := Form1.Top;

← →
MsGuns © (2007-01-06 21:51) [4]

Использовать дикирование

← →
Sleepeer (2007-01-06 22:00) [5]

Если ещё не разобрался, то вот :

procedure TForm1.Button1Click(Sender: TObject);
var
i : byte;
Ed : TComponent;
begin
for i := 1 to 5 do begin
Ed := FindComponent("Edit" + IntToStr(i));
(Ed as TEdit).Text := "найден";
end;
end;

← →
Sleepeer (2007-01-06 22:01) [6]

Сорри не туда закинул :)

← →
trubin © (2007-01-06 22:15) [7]

> MsGuns © (06.01.07 21:51) [4]
> Использовать дикирование

Если не трудно объясни, что это за зверь такой "дикирование"

← →
MsGuns © (2007-01-06 22:32) [8]

;)))
Извиняюсь, очепятался ;)
Имелось в виду Dock и Docking, по русски "причаливание". Это когда один визуальный контрол "причаливается" к другому, как лодка к дебаркадеру.
Подобно лодке, путешествующей вместе с дебаркадером, "причаленное" окно путешествует вместе со своим окном-причалом, когда оно (причал)перетаскивается юзером.

Примечание:
Дебаркадер - плавающий причал. Использовался вовсю на судоходных реках. Сегодня практически вымерли как мамонты ;)

> Дебаркадер - плавающий причал. Использовался вовсю на судоходных
> реках. Сегодня практически вымерли как мамонты ;)

Кто вымер? Судоходные реки что-ли? :)

>Германн © (07.01.07 00:25) [9]
>Кто вымер? Судоходные реки что-ли? :)

"Нам сильно было бы смешно,
Когда бы не было так грустно.."

;(

Наша Десна когда-то была очень даже судоходной. Из Брянска на юг и обратно вовсю ходили баржи, много было "турных" теплоходов. На местных линиях ходили "Ракеты" и "Метеоры". У родителей моего друга дача была в поселке, куда ходила "Ракета". Поездка к нему на рыбалку и назад превращалась в истинное удовольствие.
В самом же Чернигове были пляжи по обе стороны реки (Чернигов располагается только с одной), а между ними сновали в теплое время года "трамвайчики". В будние дни каждый час, в выходные - через 15-20 минут.
Была куча лодок у людей, на лодочной станции была проблема причалиться.
Сегодня река пустынна. Лишь изредка можно увидеть небольшой буксир с баржой или пассажирский теплоход максимум трехпалубный. Совсем отменили даже прогулочные летние рейсы. Да и лодок поубавилось сильно..
Десна нынче без судов :(

> MsGuns © (07.01.07 00:41) [10]

"Время было жуткое, настроение мерзопакостное! НО РЫБА В КАМЕ БЫЛА!"
Копирайт не ставлю, поскольку цитата приведена очень не точно :)

Два окна. Найти похожие ветки