Координаты в заголовке формы????

[sasha3050]

Подскажите какую процедуру нужно выполнить чтобы при наведении курсора мишы на одну из точек координат в заголовке формы появлялись координаты той или иной точки (любой точки) рисунка.

[Alex Cones]

на одну из точек координат

А поточнее никак?
Если мыша плавает над картинкой, ставим процедуру onMouseMove на пикчу, в ней пишем:
Form1.Caption:=IntToStr(X)+' '+IntToStr(Y);

[sasha3050]

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

[Alex Cones]

точку в фигуре этого рисунка

Почти ничего не понятно. Выложи скрин.
А вообще, если фигуры достаточно простые, задавай проверку уравнениями, если сложные, но разного цвета - проверку цвета пикселя под мЫшей.

[sasha3050]

Сообщение от Alex Cones

Почти ничего не понятно. Выложи скрин.
А вообще, если фигуры достаточно простые, задавай проверку уравнениями, если сложные, но разного цвета - проверку цвета пикселя под мЫшей.

Т.е. координаты той точки фигуры на какой расположен курсор мишы.

[russian-stalker]

И так по аналогии со всеми элементами рисунка:

procedure TForm1.Shape1MouseLeave(Sender: TObject);
begin
caption:='Не на фигуре'
end;

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

procedure TForm1.Shape2MouseLeave(Sender: TObject);
begin
caption:='Не на фигуре'
end;

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

[sasha3050]

Простите, может я чего-то не понимаю а что означает "Не на фигуре"?

А не на фигуре это координаты этих фигур или что это??

[Stilet]

при наведении курсора мишы на одну из точек координат в заголовке формы

Это так:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
   procedure nc(var m:TWMNCMouseMove); message WM_NCMouseMove;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.nc(var m: TWMNCMouseMove);
begin
 caption:=IntToStr(m.XCursor)+' '+IntToStr(m.yCursor);
end;

end.

А это

координаты той или иной точки (любой точки) рисунка.

я не понял.

[Alex Cones]

ТС, тебе уже говорили:

я не понял

Почти ничего не понятно. Выложи скрин.