Выводим подсказки на TStatusBarDelphi , Синтаксис , Hint подсказкиВыводим подсказки на TStatusBar
Оформил: DeeCo private procedure MyHint(Sender: TObject); end; implementation {....} procedure TForm1.FormCreate(Sender: TObject); begin Application.OnHint := MyHint; ShowHint := True; Button1.Hint := 'normal yellow hint|Text in Statusbar'; Button2.Hint := 'only yellow hint|'; Button3.Hint := '|text only in statusbar'; Edit1.Hint := 'same text'; end; procedure TForm1.MyHint(Sender: TObject); begin StatusBar1.SimpleText := Application.Hint; end; Статья Выводим подсказки на TStatusBar раздела Синтаксис Hint подсказки может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Hint подсказки ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |