Wenn Maus über Rechteck in Image soll Hint erscheinen

[hanse]

Hallo,

ich habe ein TImage, dass auf einer Scollbox liegt. Ich habe per Canvas Rechtecke auf das Image gemalt.
Wenn die Maus über ein Rechteck ist soll ein Text im Hint an der Stelle angezeigt werden, wenn die Maus das Rechteck verlässt soll der Hint verschwinden. Allerdings klappt das nicht so richtig. Der Hint will nicht verschwinden und wenn ich das Bild weiter scrolle wird der Hint nicht am Rechteck angezeigt, sondern -wenn überhaupt- irgendwo anders im bild.

Das ist mein Code (in OnMouseMove beim Image):

Delphi-Quellcode:

  // Abfrage ob Maus über rechteck...
  begin
  application.HintPause:=20;
  application.ActivateHint(Point(x,y));
  image1.hint:='Test';
  end
  else
  application.hidehint;

wenn anstatt HideHint CancelHint verwende klappt es auch nicht. Showhint ist bei Application und Image auf True


danke

[Die Muhkuh]

Hi und Willkommen auf'er DP


Guck mal im OI nach dem Eintrag "Hint"

[hanse]

den Hint setze ich per Laufzeit. das ist aber nicht das problem.

[Die Muhkuh]

Warum machst den Hint zur Laufzeit?

[hanse]

weil ich später dann, wenn das klappt, für jedes Rechteck einen anderen Hint haben will.

[Die Muhkuh]

ich glaub das geht net

[hanse]

das geht sehr wohl. damit habe ich ja auch kein problem....

[Dagon]

Und wie sieht deine Abfrage aus, ob die Maus über einem Rechteck ist?

[kiar]

erzeuge eine neue Komponente ,die ein rechteck zeichnet.

diese komponente kannst du so oft auf dein image plazieren wie du willst.
mache zwei neue events mit CM_MOUSEENTER und CM_MOUSELEAVE und steuere damit deinen hint.

Mouse event sollte dir weiterhelfen.

raik

[hanse]

if (mx+5 >= x) and (mx <=x) and (my+5 >=y) and (my <=y) then rechteck ist 5*5 px groß
mx = startpunkt X von Rechteck
my = startpunkt Y von Rechteck
x = maus x
y = maus y