контрол справ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;

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