Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Чтобы Panel1 и Panel2 не пересекались! [D6, Win95/98, WinXP]


Angela ©   (2005-01-26 11:50:00) 

Мастера!
Кто подскажет, как узнать, находится ли на форме по заданным координатам Panel. Например для того, чтобы добавить ещё одну Panel, но чтобы с первой она не пересекалась и не накладывалась на неё?
Спасибо за внимание.


Erik1   (2005-01-26 12:48:00) [1]

Вобщето есть такое свойство Align = alTop и прочие значения, советую поэксперементировать.


begin...end   (2005-01-26 12:17:00) [2]

> [2] Angela ©   (26.01.05 12:10)

var
 X, Y: Integer; // Координаты относительно клиентской части формы MyForm
 Control: TControl;

begin
 Control := MyForm.ControlAtPos(Point(X, Y), True, True);
 if (Control is TPanel) and (Control.Name = '...') then
   // Значит, найденный control - это экземпляр TPanel с именем '...'
   ...
end.


Angela   (2005-01-26 12:10:00) [3]

А как им пользоваться?
Может приведёте кусочек кода?
Плиз, если не тяжело!


begin...end   (2005-01-26 11:56:00) [4]

> Angela ©   (26.01.05 11:50)

TWinControl.ControlAtPos не подойдёт?


Наверх

Титульная страница Поиск, карта сайта Написать письмо