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

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

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

Два окна.

123451 © (2007-01-06 21:35:00)
Есть два окна: Form1 и Form2, они оба мозданы и видимы. Как сделать так, что бы во время перемещения по экрану первого окна, второе следовало за ним незамедлительно? Т.е. Двигаешь Form1 по экрану и Form2 "едет" за ним.

Германн (2007-01-07 00:53:00) [1]

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

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

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

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

;(

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

Германн (2007-01-07 00:25:00) [3]

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

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

MsGuns (2007-01-06 22:32:00) [4]
;)))
Извиняюсь, очепятался ;)
Имелось в виду Dock и Docking, по русски "причаливание". Это когда один визуальный контрол "причаливается" к другому, как лодка к дебаркадеру.
Подобно лодке, путешествующей вместе с дебаркадером, "причаленное" окно путешествует вместе со своим окном-причалом, когда оно (причал)перетаскивается юзером.

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

trubin (2007-01-06 22:15:00) [5]

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

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

Sleepeer (2007-01-06 22:01:00) [6]
Сорри не туда закинул :)

Sleepeer (2007-01-06 22:00:00) [7]
Если ещё не разобрался, то вот :

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;

MsGuns (2007-01-06 21:51:00) [8]
Использовать дикирование

-DeBUGGeR- (2007-01-06 21:48:00) [9]
ну на событие когда форму Form1 двигают пишешь (не помню что за событие, но можешь поставить и на OnPaint):
Form2.Left := Form1.Left;
Form2.Top := Form1.Top;

trubin (2007-01-06 21:46:00) [10]
Для Form1 ловить сообщение WM_Move:

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

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

kaZaNoVa (2007-01-06 21:42:00) [11]
нууууу типа setwindowpos наверное

Наверх

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