работа с image

[messi013]

У меня есть карта(имедж). Мне нужно сделать так, чтобы когда водишь курсором по карте и наводишь на какие-то крупные города, оно их где-то отображало, например в лейбле.

[Alex Cones]

У Image есть событие OnMouseMove (Вкладка Events в ObjectInspector) проверяете координаты и показываете хоть спец сигналом.

[messi013]

Я это понимаю, а как програмно сделать не знаю) если б можно было пример с каким-то кодом похожим...

[Marsel737]

К примеру:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label2.Caption:='По х : '+IntToStr(Mouse.CursorPos.X); //Чтобы узнать координаты города по Х
  Label3.Caption:='По У : '+IntToStr(Mouse.CursorPos.Y); //Чтобы узнать координаты города по У
  if ((Mouse.CursorPos.X-Form1.Left)<50) and ((Mouse.CursorPos.X-Form1.Left)>40) and
     ((Mouse.CursorPos.Y-Form1.Top)>40) and ((Mouse.CursorPos.Y-Form1.Top)<50)then
  Label1.Caption:='Город такой-та';
end;

Остальное сами доработаете

[raxp]

что-то вроде такого...

type tmas = record
 x1, y1,
 x2, y2: integer;
 name  : string;
end;

var mas: array of tmas;

function TForm1.get_object(x,y: integer): string;
var i: integer;
begin
 result:= 'not';
 for i:= 0 to length(mas)-1 do
  if (x> mas[i].x1)and(x< mas[i].x2)and(y> mas[i].y1)and(y< mas[i].y2) then
   result:= mas[i].name
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 caption:= format(' x=%d y=%d ',[x, y]) + '['+ get_object(x,y) +']'
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 setlength(mas, 2); // к-во объектов
 mas[0].x1:= 55;  mas[0].y1:= 38;
 mas[0].x2:= 177; mas[0].y2:= 162;
 mas[0].name:= 'РЛС-1';

 mas[1].x1:= 263; mas[1].y1:= 148;
 mas[1].x2:= 395; mas[1].y2:= 275;
 mas[1].name:= 'РЛС-2'
end;

ооо, уже опередили