Hinweise für Menüelemente
Wie kann ich Hinweise für Menüelemente erstellen?
Auf dem Formular gehen wir davon aus, dass du ein MainMenu und einer Statusbar
Typ
TForm1 = class(TForm)
...
Prozedur FormCreate(Sender: TObject);
Private
Prozedur HintHandler(Sender: TObject);
...
Prozedur TForm1.FormCreate(Sender: TObject);
beginnen
Jedes Mal wird unsere Anwendung müssen einen Hinweis anzeigen
Es löst das HintHandler-Verfahren
Application.OnHint: = HintHandler;
Ende;
Prozedur TForm1.HintHandler(Sender: TObject);
beginnen
GetLongHint(Application.Hint)-Funktion können Sie
den langen Teil des Hinweises zu extrahieren, sofern vorhanden
StatusBar1.SimpleText: = Application.Hint;
Wenn StatusBar1.SimpleText = '' dann
StatusBar1.Refresh; Erzwingen die StatusBar, seine Platten wieder malen
Ende;
Hinweise für Menüelemente
Hinweise für Menüelemente : Mehreren tausend Tipps, um Ihr Leben einfacher machen.
Wie kann ich Hinweise für Menüelemente erstellen?
Auf dem Formular gehen wir davon aus, dass du ein MainMenu und einer Statusbar
Typ
TForm1 = class(TForm)
...
Prozedur FormCreate(Sender: TObject);
Private
Prozedur HintHandler(Sender: TObject);
...
Prozedur TForm1.FormCreate(Sender: TObject);
beginnen
Jedes Mal wird unsere Anwendung müssen einen Hinweis anzeigen
Es löst das HintHandler-Verfahren
Application.OnHint: = HintHandler;
Ende;
Prozedur TForm1.HintHandler(Sender: TObject);
beginnen
GetLongHint(Application.Hint)-Funktion können Sie
den langen Teil des Hinweises zu extrahieren, sofern vorhanden
StatusBar1.SimpleText: = Application.Hint;
Wenn StatusBar1.SimpleText = '' dann
StatusBar1.Refresh; Erzwingen die StatusBar, seine Platten wieder malen
Ende;
Hinweise für Menüelemente
By Wiezutun
Hinweise für Menüelemente : Mehreren tausend Tipps, um Ihr Leben einfacher machen.