[Rikki-Tikki]

Здравствуйте! у меня форма, на которой расположена панель, под ней - TImage.
Я хочу, чтобы Tlabel на панели выводил координату Х двигающегося по имеджу курсора.
для этого я на Timage написала:

Код:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label4.caption:=inttostr(x);
end;

Но он выводит 2 числа при движении по этому Tlabel
а при движению в области рисунка не меняет Tlabel.caption(

Подскажите, пожалуйста, в чем может быть причина?

[lmikle]

Ну, 2 числа он выводить просто не может. Если только в другом месте в тот же Label не выводится ничего другого.

Вот это работает так, как описано:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label1.Caption := IntToStr(X);
end;

end.

Панель, на ней Имадж. При движении мыши выводится ее Х координата.

[Rikki-Tikki]

CCCCCCCCCC
Вот это работает так, как описано:
ccccccccccc

да, но именно так у меня и написано.
более того, я делала пробный проект, и у меня все работало как надо...
Если вам не трудно, посмотрите, пожалуйста, в моем конкретном проекте, наверняка там ошибка в сочетании объектов, или в чем-то подобном.

[lmikle]

Код из твоего проекта:

Код:

procedure TForm1.Label4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
label4.caption:=inttostr(x)+' '+inttostr(Y);
end;

Ничего не смущает???

[Rikki-Tikki]

а, ну да. тогда насчет 2-х чисел все понятно.

но почему событие не отрабатывает при движении мыши над объектом имадж, для которого оно стоит?

я уж в f4 в нем нажимала - трассировщик туда просто не заходит(

[Rikki-Tikki]

я разобралась! у меня стояло свойство имаджа - невидимый!!! поэтому и не выполнялось.