Главная страница
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.037 c
4-1103434952
DelphiN!
2004-12-19 08:42
2005.02.06
Передача параметров потоковой процедуры


1-1106561957
Sphinxx
2005-01-24 13:19
2005.02.06
Вопрос о TStringList


11-1089658722
AlexR
2004-07-12 22:58
2005.02.06
RichEdit и scrollbar


1-1106652247
viola
2005-01-25 14:24
2005.02.06
Атрибут заголовка StringFGrid


3-1105383006
Stanislav_SM
2005-01-10 21:50
2005.02.06
Как для ADO соединения указать языковой драйвер