Mehrere Mouse-Over Events bei einem Image

[ak1]

Hallo Leute,

ich habe ein Image in dem auf Knopfdruck eine Linie gezeichnet wird:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  image1.Canvas.Pen.Width:=2;
  image1.Canvas.Pen.Color:=clred;
  image1.Canvas.LineTo(10,10);
  image1.Canvas.LineTo(90,10);
  image1.Canvas.LineTo(90,90);
  image1.Canvas.LineTo(100,90);
  image1.Canvas.LineTo(100,10);
  image1.Canvas.LineTo(110,10);
  image1.Canvas.LineTo(110,90);
  image1.Canvas.LineTo(120,90);
  image1.Canvas.LineTo(120,10);
  image1.Canvas.LineTo(130,10);
  
end;

Jetzt möchte ich, wenn der Benutzer mit dem Mauszeiger auf Koordinate (100,90) geht einen Klartext ausgeben, bei Koordinate (130,10) wiederum einen andern Klartext. Geht so etwas bei Bildern?

[SirThornberry]

was verstehst du unter "Klartext"??
wenn du einfach text ausgeben willst nimm
image1.canvas.textout

[MikeS]

nimm doch einfach onMouseMove und mache dann eine abfrage der koordinaten x und y!

Delphi-Quellcode:

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
        if (x = 100) and (y = 90) then
          form1.Caption := 'test';
        if (x = 130) and (y = 10) then
          form1.Caption := 'test1';
end;

die aktionen kannst du dann ja gestalten wie du sie brauchst!

[ak1]

@Sir, der Klartext der als Hint oder in einem Textfeld erscheinen soll, kann auch auf Mausklick erstellt werden.

@Mike5, vielen Dank für den Tip, ich werde es Heute abend mal ausprobieren.


Gruß