? Tips for menyen items

Hvordan kan jeg lage tips for menyelementer på skjemaet, antar vi at du har en Hovedmeny og en Statusbartype TForm1 = klasse (TForm) ... prosedyre FormCreate (Sender: TObject); privat prosedyre HintHandler (Sender: TObject); ... prosedyre TForm1.FormCreate (Sender: TObject); begynne //Hver gang vår søknad blir nødt til å vise et snev //det vil utløse HintHandler prosedyre Application.OnHint: = HintHandler; enden, prosedyre TForm1.HintHandler (Sender: TObject); begynne //du kan bruke GetLongHint (Application.Hint) -funksjonen //for å trekke ut den lange delen av hint hvis det er en StatusBar1.SimpleText: = Application.Hint; hvis StatusBar1.SimpleText = '' da StatusBar1.Refresh; //Å tvinge Status å male sin paneler againend;



Previous:
Next Page: