Hints... egal wo!

[shareholder]

So wie ich das gesehen habe, muss die Komponente, die den Hint erhält ja diese Funktion expliziet unterstützen und selbst ein Ereignis für den Hint auslösen.

Da ich aber gerade versuche das ganze Programm selbst zu krickeln, muss ich so abfragen... :

Wenn Mauszeiger in einem bestimmten Bereich auf dem Canvas, dann zeige den Hint direkt am Mauszeiger an... :oops:

Aber wie soll das funktionieren? :gruebel:

[jfheins]

Zitat:

Zitat von shareholder

Da ich aber gerade versuche das ganze Programm selbst zu krickeln, muss ich so abfragen...

Sorry, aber was hat das bitte für einen Sinn ? :gruebel:

Du könntest die Komos doch auch dynamisch erstellen ...

[shareholder]

Komos? Was'n das?

[jfheins]

:oops: Komos :arrow: Kompos :arrow: Komponenten ;)

[alzaimar]

Is doch ganz einfach... Wenn sich die Maus einige Zeit nicht bewegt hat, öffnest Du ein kleines nichtmodales Fenster mit deinem Hilfetext, welches nach einiger Zeit wieder verschwindet. Oder wenn man irgendwo hinklickt. Oder eine Taste drückt. Oder wenn das Fenster den Fokus verliert. Oder.. Oder. Oder.

[shareholder]

Nö, ne Wartezeit will ich nicht. ;)

Ok, angenommen ich nehme ein Panel... wie Richte ich das Panel am Mauszeiger aus? (Das Panel Soll dem Mauszeiger folgen..)

[malo]

Zitat:

Zitat von shareholder

Nö, ne Wartezeit will ich nicht. ;)

Ok, angenommen ich nehme ein Panel... wie Richte ich das Panel am Mauszeiger aus? (Das Panel Soll dem Mauszeiger folgen..)

Etwa so:

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Panel1.Top := Y;
  Panel1.Left := X;
end;

[pacman1986]

In das Ereigniss onmousemove gibt es eine mauszeigerposition die durch die beiden integer zahlen x,y gekennzeichnet sind ...
Panel hat Top und Left als panel Position.
:)




Ok ich war zu spät sorry

[shareholder]

Das ist doch Dreck...
Wie soll dann der Hint bestimmt aus dem Formular rauskucken können? ;)

Hab' mal skizziert...


Edit: Ich muss dann direkt auf 'm Bildschirm pinseln, oder?

[malo]

Zitat:

Zitat von shareholder

Das ist doch Dreck...
Wie soll dann der Hint bestimmt aus dem Formular rauskucken können? ;)

Hab' mal skizziert...


Edit: Ich muss dann direkt auf 'm Bildschirm pinseln, oder?

Dann musst du halt ein eigenes Formular nehmen ;)

[pacman1986]

Ich hab ein bisßchen gesucht :-D
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:

Zitat von pacman1986

Ich hab ein bisßchen gesucht :-D
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:

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