Hint in Image bei MouseMove anzeigen

Daniel L. · Verfasst: Sa 07.04.18 15:14

Hi zusammen!

Ich möchte erreichen, dass beim Stehenbleiben des MausCursors über einem Image
ein Hint angezeit wird, der Mauskoordinatenbezogene Infos ausgibt.
Wird die Maus zu einer anderen Stelle im Image bewegt, soll dann der alte Hint ausgeblendet und
ein entsprechend neuer Hint angezeigt werden.
Cool wäre auch, wenn man den Hint per Mausclick wieder ausblenden könnte (ohne die Maus zu bewegen)

Ich hab einiges probiert mit OnMouseMove, CancelHint usw. aber nichts gescheites rausbekommen.

Danke für Tips -
Daniel L.

Delphi-Laie · Verfasst: Sa 07.04.18 15:29

"Maus stehenbleiben" ist nach meinem Wissen kein(em) Ereignis zugeordnet.

Vermutlich kommst Du mit einem Timer weiter. Der wird mit jedem Mousemove deaktiviert und anschließend akiviert. Nachdem er einmal ausgelöst hat, wird er wiederum deaktiviert.

_________________
Ordnung ist das halbe Leben - und sie zu schaffen die andere Hälfte.

Daniel L. · Verfasst: Sa 07.04.18 16:13

Delphi-Laie hat folgendes geschrieben :

"Maus stehenbleiben" ist nach meinem Wissen kein Ereignis zugeordnet.

Vermutlich kommst Du mit einem Timer weiter. Der wird mit jedem Mousemove deaktiviert und anschließend akiviert. Nachdem er einmal ausgelöst hat, wird er wiederum deaktiviert.

hm, folgendes hab ich probiert...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.FormCreate (Sender: TObject);
begin
  application.HintHidePause := 10000;    // Hint lange anzeigen
  Image1.ShowHint := true;
  timer1.Interval := 400;
end;


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  application.CancelHint;
  //showHint := false;
  Image1.hint := IntToStr (x);
  timer1.Enabled := false;
  timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Hint anzeigen...?
  showhint := true;
end;

CanceHint funktioniert, aber wie lässt dich der Hint erneut anzeigen?

Delphi-Laie · Verfasst: Sa 07.04.18 16:52

Daniel L. hat folgendes geschrieben :

CanceHint funktioniert, aber wie lässt dich der Hint erneut anzeigen?

An gleicher Mausposition gar nicht. Erst, wenn die Maus wiederum bewegt wird, setzt die Ereigniskaskade erneut ein.

Außerdem müßtest Du showhint entweder beim Anzeigen des Hints oder spätestens beim nächsten Mousemove wieder einnullen, d.h., auf false setzen.

Zudem hast Du nicht, wie ich es empfahl, den Timer in der Timerprozedur "disabled" (mit aktiv und deaktiv weiter oben meinte ich natürlich enabled und disabled) gesetzt.

_________________
Ordnung ist das halbe Leben - und sie zu schaffen die andere Hälfte.

Daniel L. · Verfasst: Sa 07.04.18 17:28

sorry, ich verstehe dich glaub ich nicht ganz.

meinst du

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.FormCreate (Sender: TObject);
begin
  application.HintHidePause := 10000;    // Hint lange anzeigen
  Image1.ShowHint := true;
  timer1.Interval := 400;
end;


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  //application.CancelHint;
  showHint := false;
  Image1.hint := IntToStr (x);
  timer1.Enabled := false;
  timer1.Enabled := true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Hint anzeigen...?
  showhint := true;
  timer1.Enabled := false;
end;

mit showhint := false lässt sich der Hint nicht sofort ausblenden,
man muss erst das Control mit der Maus verlassen.

Delphi-Laie · Verfasst: Sa 07.04.18 17:52

Doch, Du hast mich sehr wohl verstanden. Jedenfalls sind jetzt meine Anregungen alle enthalten.

Wenn das jetzt noch nicht wie gewünscht funtiontiert, bin ich jetzt mit meinem Latein auch erst mal am Ende. Funktioniert es wenigstens besser als zuvor?

Mit einem Image.ShowHint hatte ich noch nie zu tun, deshalb wäre ein kleines Referenzprojekt ganz hilfreich. Könntest Du eines hier veröffentlichen? Falls ja, dann bitte eines für eine möglichst niedrige Delphiversion.

Alternativ können wir warten, bis jemand sich meldet, der besser als meine Wenigkeit helfen kann. Frühlingsrolle und jaenicke z.B. sind solche Experten, die eigentlich zu jedem (nicht nur Delphi-)Problem irgendeine substantielle Hilfe parathaben.

_________________
Ordnung ist das halbe Leben - und sie zu schaffen die andere Hälfte.

Ehemaliges Mitglied Erhaltene Danke: 1

- Nachträglich durch die Entwickler-Ecke gelöscht -

Daniel L. · Verfasst: Sa 07.04.18 18:44

Frühlingsrolle hat folgendes geschrieben :

Sei kreativ und probier's einfach mal aus.

bin schon dabei...

Danke an euch,

Daniel

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme