TStatusBar с другими контроламиDelphi , Компоненты и Классы , TStatusBarTStatusBar с другими контролами
Автор: man2002ua Этот StatusBar позволит размещать на себе любые другие контролы. Создаем новый компонент от StatusBar и првим код как внизу. Потом инсталлируем и все. unit StatusBarExt; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TStatusBarExt = class(TStatusBar) public constructor Create(AOwner: TComponent); override; // добавить конструктор end; procedure Register; implementation uses Consts; // не забыть constructor TStatusBarExt.Create(AOwner: TComponent); begin inherited Create(AOwner); ControlStyle := ControlStyle + [csAcceptsControls]; // собственно все! end; procedure Register; begin RegisterComponents('Samples', [TStatusBarExt]); end; end. Статья TStatusBar с другими контролами раздела Компоненты и Классы TStatusBar может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: TStatusBar ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |