Определив положение картинки принять за истину

[SKS]

Всем привет!
Делаю тест по информатике и хотелось бы протестировать обучающихся на знание комплектующих.
На форме будет картинка с изображением системного блока (без комплектующих), а сбоку будут картинки с несколькими типами процессоров, жестких дисков и т.д. и вот подскажите как реализовать так чтобы можно было перемещать изображение процессора на место процессора и чтобы программа определила, например материнка у нас с сокетом 775 и имеются картинки image2 - это проц с сокетом АМ2, image3 - это проц с сокетом 775, как реализовать так чтобы пользователь мог перетаскивать картинки и если компонент image3 окажется в некой области на картинке, то например компонент label отобразит верно.

[_SERGEYX_]

Долго расписывать нет времени...
Вот, выдрал простой пример из своего блокнота... перемещение картинки по форме

var    
  x0, y0: integer;
  move: boolean;
  rec: TRect;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if button<>mbLeft then
    move:=false
  else
  begin
    move:=true;
    x0:=x;
    y0:=y;
    rec:=image1.BoundsRect;
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if move then
  begin
    Form1.Canvas.DrawFocusRect(rec);
    with rec do
    begin
      left:=Left+x-x0;
      top:=Top+y-y0;
      right:=right+x-x0;
      bottom:=bottom+y-y0;
      x0:=x;
      y0:=y; 
    end;
    Form1.Canvas.DrawFocusRect(rec); 
  end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Form1.Canvas.DrawFocusRect(rec);
  with image1 do begin
    setbounds(rec.left+x-x0,rec.top+y-y0,width,height); 
    move:=false;
  end;
end;

Ну, и при MouseMove пиши на лейблах все, что угодно

[SKS]

Спасибо!
А как теперь сделать так, чтобы переместив изображение в определенную область программа например показала label1, то есть мне то нужно чтобы учащийся переместил процессор на место процессора, и тогда когда например изображение с процессором image2 будет в определенной области на картинке программа например показала label1, мне вот что основное то нужно.
Если прописать точные координаты, то учащийся переместив изображение хотя бы на 1 пиксел выше, не получит результата и программа засчитает что процессор не "сюда" ставится.

[SKS]

я посмотрел и прописал на кнопке,
if image1.Left=30 then label1.Caption:='верно!';
if image1.top=30 then label1.Caption:='верно!';
ну тут понятно, а как если обучающийся поставит чуть ниже или выше или левее или правее?

[SKS]

Можно ли расширить диапазон распознавания положения картинки?
if image1.Left=30 then label1.Caption:='верно!';
if image1.top=30 then label1.Caption:='верно!';
тут условие будет выполняться если положение картинки точно в заданных координатах, как расширить диапазон например от left=25 до left=35?

[TorrentTor]

Особо не вникая могу предложить

if (image1.Left>=30) and (image1.Left<=40)then label1.Caption:='верно!';

[SKS]

TorrentTor Спасибо тебе! Работает, остаётся намного доработать и будет замечательно. + тебе!