Как сделать ограничение на перемещение? Или я не знаю как называется это правильно. (См. внутри) Делфи

[KotyaraYa]

Если нажимать на кнопки ВПРАВО ВЛЕВО ВВЕРХ ВНИЗ робот Петька перемещается соответственно этим кнопкам. А как сделать так, чтобы Петька не заезжал на другие кнопки? Чтобы выдавалось, например, сообщение "Не могу дальше". Ну или без сообщения, просто чтобы остановился около других объектов на форме. Что и где нужно прописать?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
Label1: TLabel;
Shape1: TShape;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button2Click(Sender: TObject);
begin
button1.Top:=button1.Top-1;
if (button1.Top<0) then
begin
button1.Top:=0;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
button1.Top:=button1.Top+1;
if (button1.Top>471) then
begin
button1.Top:=471;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
button1.Left:=button1.Left+1;
if (button1.left>649) then
begin
button1.Left:=649;
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
button1.Left:=button1.Left-1;
if button1.Left<0 then
begin
button1.left:=0;
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
CH,CW:integer;
begin
randomize;
CH:=random(ClientHeight-speedbutton1.Height);
CW:=random(ClientWidth-speedbutton1.Width);
if (CH<0) or (CW<0) then
begin
CH:=CH+speedbutton1.Height;
CW:=CW+speedbutton1.Width;
speedbutton1.Top:=CH;
speedbutton1.Left:=CW;
end
else
speedbutton1.Top:=CH;
speedbutton1.Left:=CW;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
shape1.width:=shape1.width + 1;
shape1.height:=shape1.height + 1;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
shape1.width:=shape1.width - 1;
shape1.height:=shape1.height - 1;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
close;
end;
end.

[Aranea tela telam]

ну поидее можно например в событие кнопки в право написать

if кнопка вправо.left < кнопка надуть.left - кнопка вправо.width then кнопка Петька.left:=кнопка Петька.left+1;

ну и остальные примерно также)

[KotyaraYa]

Сообщение от Aranea tela telam

ну поидее можно например в событие кнопки в право написать

if кнопка вправо.left < кнопка надуть.left - кнопка вправо.width then кнопка Петька.left:=кнопка Петька.left+1;

ну и остальные примерно также)

Пробовал прописать для вправо, но все равно заезжает на Надуть(

[Aranea tela telam]

Проверил у себя все пашет
Button1 - это кнопка вправо
Button3 - это кнопка Петька
Button2 - это просто кнопка

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Button3.Left < Button2.Left-Button3.Width) then Button3.Left:=Button3.Left+1;
end;

[KotyaraYa]

Сообщение от Aranea tela telam

Проверил у себя все пашет
Button1 - это кнопка вправо
Button3 - это кнопка Петька
Button2 - это просто кнопка

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Button3.Left < Button2.Left-Button3.Width) then Button3.Left:=Button3.Left+1;
end;

Блин, у меня ничего не выходит. Теперь у меня ни одна кнопка почему-то не работает. Я запутался.((((

[Aranea tela telam]

Вот тебе исходник
Там небольшой пример нажатия кнопок налево и на право, Вниз и вверх примерно также делать

Новая папка.rar