Delphi - база знаний

       

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




Содержание раздела