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

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

← →
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, по русски "причаливание". Это когда один визуальный контрол "причаливается" к другому, как лодка к дебаркадеру.
Подобно лодке, путешествующей вместе с дебаркадером, "причаленное" окно путешествует вместе со своим окном-причалом, когда оно (причал)перетаскивается юзером.

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

---

← →
Германн ©   (2007-01-07 00:25) [9]

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

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

---

← →
MsGuns ©   (2007-01-07 00:41) [10]

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

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

;(

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

---

← →
Германн ©   (2007-01-07 00:53) [11]

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

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

---

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

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



Память: 0.47 MB
Время: 0.039 c