StatusBar с другими контролами
Материал из DRKB
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.
Source: Взято с Vingrad.ru http://forum.vingrad.ru
ID: 00516