Text neben Cursor einblenden

[stahli]

Falls es Hint-Lösungen sein können, würde ich 2 Möglichkeiten sehen:

Die AlphaControls bringen einen HintManager mit, der sehr flexibel einsetzbar ist (incl. zyklischem Refresh).

Ansonsten habe ich mal eine Hint-Lösung gefunden, die für jedes Item einer aufgeklappten ComboBox ein individuelles Hint anzeigt. Vielleicht könnte man davon etwas ableiten. Könnte es bei Bedarf raussuchen.

[ASM]

Es gibt eine recht nützliche Unit (mcHintbox, http://mastercluster.com/doc/467), mit deren Hilfe man das sehr gut erreichen kann.
Diese Unit ist zwar leider nicht OpenSource, sondern kostet ca. 15 EUR, kann ich aber aus meiner Erfahrung mit ihr empfehlen.

Wie diese Hintbox für den genannten Zweck eingesetzt werden kann, hier an einem eigenen Beispiel (und compiliert als Anhang):

Delphi-Quellcode:

uses mcHintbox;

var
  SwitchedOn: Boolean = false;

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  MousePt: TPoint;
begin
  if (x <= 20) or (x >= panel1.Width - 20) or (y <= 20) or (y >= panel1.Height - 20) then
  // Abstand vom Panelrand halten, um die Hintbox durch simulierten Mausklick
  // rechtzeitig vor Verlassen des Panels auszuschalten
  with panel1 do
  begin
    mouse_event(MOUSEEVENTF_LEFTDOWN, left, width, top, height);
    mouse_event(MOUSEEVENTF_LEFTUP, left, width, top, height);
  end
  else
    if SwitchedOn then
  // Ein-/Ausschalten triggern, um Flackern der Hintbox bei der Bewegung zu vermeiden
    begin
      MousePt := ClientToScreen(Point(x, y));
      HintBox(MousePt.x, MousePt.y, ' Yes, it is working', ' Helpfull Message');
    end;
  SwitchedOn := not SwitchedOn;
end;