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

контрол справa   Найти похожие ветки 

← →
AlexA ©   (2003-03-28 14:10) [0]

Подскажите, как найти какой контрол находиться, например справо, от текущего контрола.
Спасибо.

---

← →
MBo ©   (2003-03-28 14:12) [1]

controlatpos

---

← →
Style   (2003-03-28 14:20) [2]

Не представляю зачем это надо..

Можно перечислить все контролы у Parent"a т.е.

Sender = текущему контролу

var
i: integer;
begin
for i := 0 to TControl(sender).Parent.ControlCount-1 do
begin
if(TControl(sender).Left < TControl(sender).Parent.Controls[i].Left) then
begin
if(TControl(sender).Parent.Controls[i] is TWinControl) then
TWinControl(TControl(sender).Parent.Controls[i]).SetFocus;
exit;
end;
end;

---

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

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



Память: 0.45 MB
Время: 0.016 c