Проверка Panel

[program123]

добрый день. возник вопрос..
есть допустим 2 панельки 25х25, стоят почти рядом несколько пикселей друг от друга. каким образом можно проверить кликая на панель есть ли рядом с ней вторая панель. т.е допустим кликнули по первой и если рядом с ней есть вторая то условие.. а если кликнули по второй и возле неё дальше по Left нету ничего тоже условие.. помогите

[ex.cluz]

А в чем проблема? Работайте с координатами и размерами панелек (Top, Left, Height, Width).

[program123]

пытался так:

for i:=1 to ComponentCount-1 do
  if (((Sender as TButton).Left + 5) <> (TButton(Components[i]).Left)) then ...

[designer999]

ну вот пример для первого условия

procedure TForm1.Panel1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 100 {укажи свой диапазон} do
begin
if panel1.Left+panel1.Width+i=panel2.Left then
showmessage('Вторая находится на растоянии ['+inttostr(i)+'] от первой');
end;
end;

ну и по второму вопросу

procedure TForm1.Panel2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to form1.Width do
begin
if panel2.Left-i=panel1.Left then
showmessage('Слева есть панель');
end;
end;