StatusBar с другими контролами
StatusBar с другими контролами
Этот 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.
Автор man2002ua
Взято с Vingrad.ru