Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.02.06;
Скачать: CL | DM;

Вниз

Чтобы Panel1 и Panel2 не пересекались!   Найти похожие ветки 

 
Angela ©   (2005-01-26 11:50) [0]

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


 
begin...end ©   (2005-01-26 11:56) [1]

> Angela ©   (26.01.05 11:50)

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


 
Angela ©   (2005-01-26 12:10) [2]

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


 
begin...end ©   (2005-01-26 12:17) [3]

> [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.


 
Erik1 ©   (2005-01-26 12:48) [4]

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



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

Текущий архив: 2005.02.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.066 c
14-1106066184
olookin
2005-01-18 19:36
2005.02.06
Прогулка. Нестандартно для Земфиры, как вы считаете?


3-1105272952
makey22
2005-01-09 15:15
2005.02.06
Создание отчета


8-1098510580
mr.Faga
2004-10-23 09:49
2005.02.06
Как нарисовать фоновую картинку на TTabSheet


6-1100771473
MegaVolt
2004-11-18 12:51
2005.02.06
Какой порт отвечает за работу с расшаренными ресурсами.


14-1105790085
DSKalugin
2005-01-15 14:54
2005.02.06
Где можно стырить список городов Украины?