Hints... egal wo!

[pacman1986]

Ich hab ein bisßchen gesucht
und habe von delphi schon Vorgefertigt gefunden

Form1.Hint:='Text';
Form1.Showhint:=true;

vieleicht hilft dir das weiter

[Kroko1999]

Schau mal nach

Application.HintHidePause;
Application.HintPause;
Application.HintShortPause;
Application.CancelHint;

[shareholder]

Zitat von pacman1986:

Ich hab ein bisßchen gesucht
und habe von delphi schon Vorgefertigt gefunden

Form1.Hint:='Text';
Form1.Showhint:=true;

vieleicht hilft dir das weiter

Das geht nur, wenn der Zeiger über einem Steuerelement im Formular liegt.
Außerdem wird der Hint nicht direkt am Mauszeiger angezeigt, wie auf meiner Skizze... mhh..

[Fossibaer58809]

Guten Abend,

Eventuell hilft es ja in der OH mal nach THintwindow (o.ä.) ausschau zu halten.

Gruß
Michael

[Muetze1]

Moin!

Ich habe auch einen eigenen Editor bestehend aus vielen Objekten die von TObjekt kommen und daher kein Hint haben. Auch ich würde gerne einen Hint haben und ich habe auch schon viel geschaut, gesucht und VCL Quellen studiert. Grundlegend helfen mir, wie auch dem Threadersteller, die ganzen Hinweise auf THintWindowClass, Application.ShowHint, etc rein gar nix, weil diese ganzen VCL Dinge nur funktionieren, wenn die Komponente dieses kann und entsprechende Methoden/Eigenschaften mitbringt. Diese sind aber grundlegend erst ab einer bestimmten Spezialisierung verfügbar, wo ich aber nicht mehr ansetzen kann. Daher suche ich auch eine Lösung - und am besten ohne eine "Form" anzuzeigen - für ein Hint - egal wo auf einem ClientFenster...

MfG
Muetze1

[Fossibaer58809]

Guten Abend,

Hier ein kleines Beispiel, wie sich eigene Hints in Controls erzeugen lassen. On das mit TObject auch funktioniert kann ich leider nicht sagen.

Delphi-Quellcode:

TVisuControl = class(TGraphicControl)
protected
  procedure CMHintShow(var Message : TMessage); message CM_HINTSHOW;
  ....
end;

procedure TVisuControl.CMHintShow(var Message : TMessage);
begin
  with TCMHintShow(Message) do begin
    with HintInfo^ do begin
      Result := 0;
      HintStr := 'Hier steht irgendein Hint';
      ...
    end;
  end;
end;

Gruß
Michael

[Muetze1]

Moin!

Zitat von Fossibaer58809:

Hier ein kleines Beispiel, wie sich eigene Hints in Controls erzeugen lassen. On das mit TObject auch funktioniert kann ich leider nicht sagen.

Nein, kann es grundsätzlich nicht. Deshalb hatte ich zuvor darauf hingewiesen das die von der VCL bereitgestellten Funktionalitäten nicht nutzbar sind!

1. TGraphicControl ist schon zu hoch.
2. CM_HINTSHOW ist eine VCL interne Botschaft die man als TObject eh nicht empfangen kann.
3. CM_HINTSHOW wird ausgelöst, wenn man länger auf einem TControl stehen bleibt, daher ist TObject doppelt ausgeschlossen.

Aber danke für die Idee & den Code - das wird hoffentlich anderen helfen...

MfG
Muetze1

[teebee]

@shareholder:

Habe hier eine Lösung ohne Verzögerung, die zumindest funktioniert. Ob sie Dir gefällt, musst Du dann entscheiden. Habe als Control eine Paintbox genommen, da Du was von Canvas geschrieben hast, geht aber mit allen Nachfahren von TControl.

Delphi-Quellcode:

// Die bestehende Paintbox erweitern:
Type TMyPaintBox = Class(TPaintBox)
       public
         Procedure CMMOUSELEAVE(Var Message: TMessage); message CM_MOUSELEAVE;
     End;

// Formulardeklaration
...
public
  ...
  HintWindow: THintWindow;
  ...

implementation

{$R *.DFM}


// in FormCreate das HintWindow und die Paintbox erstellen. Paintbox in die rechte untere Ecke des Formulars
procedure TForm1.FormCreate(Sender: TObject);
begin
  HintWindow := THintWindow.Create(Self);
  MyPaintBox := TMyPaintBox.Create(Self);
  MyPaintBox.Parent := Self;
  MyPaintBox.Top := ClientHeight-MyPaintBox.Height;
  MyPaintBox.Left := ClientWidth-MyPaintBox.Width;
  MyPaintBox.OnMouseMove := PBMouseMove;
  // beides in FormDestroy wieder freigeben!
end;

// bei Mausbewegungen auf der Paintbox entsprechenden Hint ausgeben
procedure TForm1.PBMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
Var ScreenPoint: TPoint;
begin
  // Koordinaten umwandeln
  ScreenPoint := (Sender as TControl).ClientToScreen(Point(x,y));
  // Hint ausgeben
  HintWindow.ActivateHint(Rect(ScreenPoint.x,ScreenPoint.y-20,ScreenPoint.x+100,ScreenPoint.y),'Position: '+IntToStr(x)+' / '+IntToStr(y));
end;

// Beim Verlassen der Paintbox HintWindow ausschalten
procedure TMyPaintBox.CMMOUSELEAVE(Var Message: TMessage);
begin
  TForm1(Parent).HintWindow.ReleaseHandle;
  inherited;
end;

Gruß, teebee