Вставка данных из Edit в Stringgrid в столбец

[Аника Янковская]

Здравствуйте! Для расчета, я определяла координаты щелчков мыши на канве. Они у меня записываются в Edit2 (x) и Edit3 (y). При каждом щелчке текущее значение координаты меняется. Мне необходимо записать эти координаты в Stringgrid1(состоит из 2 столбцов и n-ного количества строк). Я попыталась это сделать, но в таблицу записываются все одинаковые значения. Подскажите где у меня ошибка, как сделать, чтобы выводились координаты всех точек по порядку???

Код:

procedure TForm2.Image1Click(Sender: TObject);
Const n=100;
var MyMouse:TMouse;
X,Y,i:integer;
begin
X:=Image1.ScreenToClient(MyMouse.Cu rsorPos).X;
Y:=Image1.ScreenToClient(MyMouse.Cu rsorPos).Y;
Edit2.text:=floattostr(X);
Edit3.text:=floattostr(Y);
for i:=1 to n do
begin
StringGrid1.Cells[0,i]:=Edit2.Text;
StringGrid1.Cells[1,i]:=Edit3.Text;
end;
end;

[min@y™]

Замени OnClick на OnMouseDown.
Выкинь mouse, X, Y, N, цикл, эдиты.

procedure TMainForm.ImageMouseDown(Sender: TObject;
                                   Button: TMouseButton;
                                   Shift: TShiftState;
                                   X, Y: Integer);
begin
  with Grid do
    begin
      RowCount:= RowCount + 1;
      Cells[0, RowCount - 1]:= IntToStr(X);
      Cells[1, RowCount - 1]:= IntToStr(Y);
    end;
end;

Замени эдиты, например, панелями (или лейблами). Координаты текущие выводи в них по событию OnMouseMove.

[Аника Янковская]

Сообщение от min@y™

Координаты текущие выводи в них по событию OnMouseMove.

А как правильно записать, чтобы выводились координаты через OnMouseMove. Подскажите пожалуйста.

[min@y™]

Сообщение от Аника Янковская

А как правильно записать, чтобы выводились координаты через OnMouseMove. Подскажите пожалуйста.

сначала давай-ка самостоятельно поэкспериментируй. ну, а если не получится, тогда я нарисую.
должен же я убедиться, что ты не стремишься сесть мне на шею!
Там и так все места давно проданы.

[Аника Янковская]

Согласна. Буду пробовать.

[min@y™]

Сообщение от Аника Янковская

Согласна. Буду пробовать.

давай быстрей, пока я спать не завалился.

[Аника Янковская]

procedure TForm2.MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
label2:=IntToStr(X);
label3:=IntToStr(Y);
end;

Ошибка с типами получается??? Подскажите пожалуйста.

[min@y™]

procedure TForm2.MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
label2.Caption:= Format('X = %d', [X]);
label3.Caption:= Format('Y = %d', [Y]);
end;

[type_Oleg]

Можно и так, наверное

label2.Caption:=IntToStr(X);

Или так

label2.Caption:='X = '+IntToStr(X);

[Аника Янковская]

Спасибо. А если мне надо, чтобы координаты на Image (находится на форме) определялись, а не на всем формате. Что надо исправить?