Vcl.StdActns.THintAction
Delphi
THintAction = class(TCustomAction)
C++
class PASCALIMPLEMENTATION THintAction : public Vcl::Actnlist::TCustomAction
Eigenschaften
| Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
|---|---|---|---|---|
| class | public | Vcl.StdActns.pas Vcl.StdActns.hpp |
Vcl.StdActns | Vcl.StdActns |
Beschreibung
THintAction ist die Aktion, die ausgeführt wird, wenn sich der Mauszeiger für kurze Zeit über einem Steuerelement oder Menüeintrag befindet, dem ein Kurzhinweis zugewiesen ist.
Fügen Sie THintAction nicht wie die anderen vordefinierten Aktionen zu einer Aktionsmanager- oder Aktionslistenkomponente hinzu. Diese Objekte arbeiten nicht mit einem Client-Steuerelement zusammen, sondern werden vom Anwendungsobjekt (Application) verwendet.
Befindet sich der Mauszeiger für kurze Zeit über einem Steuerelement oder Menüeintrag mit einem Hinweis in der Eigenschaft Hint, führt das Anwendungsobjekt eine der folgenden Operationen durch:
Ist in der Anwendung eine Behandlungsroutine für OnHint definiert, wird dieses Ereignis generiert.
Ist keine Ereignisbehandlungsroutine für OnHint implementiert, wird ein THintAction-Objekt ausgeführt.
Wenn ein THintAction-Objekt ausgeführt wird, ruft es die Methode ExecuteAction der möglichen Zielkomponenten auf, bis ein Steuerelement auf die Aktion reagiert. Manche Steuerelemente wie z.B. TStatusBar überschrieben ExecuteAction als Antwort auf THintAction.
Wenn Sie eigene Komponenten erstellen, können Sie die Methode ExecuteAction wie im folgenden Beispiel überschreiben, um auf THintAction einen Kurzhinweis anzuzeigen:
function TMyControl.ExecuteAction(Action: TBasicAction): Boolean;
var
HintText: string;
begin
if Action is THintAction then
begin
HintText := THintAction(Action).Hint;
{ etwas ausführen, um den Hinweistext anzuzeigen }
Result := True;
end
else Result := inherited ExecuteAction(Action);
end;
bool __fastcall TMyControl::ExecuteAction(TBasicAction *Action)
{
THintAction *pHint = dynamic_cast<THintAction *>(Action);
if (pHint)
{
// etwas ausführen, um pHint->Hint anzuzeigen
returntrue;
}
return TComponent::ExecuteAction(Action);
}