Diseño de componentes

[vichovi]

Estas son las fuentes completas:

unit ListBoxSpecial;

interface

uses
Windows, Messages, SysUtils, Classes, QControls, QStdCtrls;

type
TListBoxSpecial = class(TListBox)
private
{ Private declarations }
FScroll:boolean;
procedure SetScroll(WithScroll:boolean);
protected
{ Protected declarations }
public
{ Public declarations }

published
{ Published declarations }
property Scroll:boolean read FScroll write SetScroll;
end;

procedure Register;

implementation

procedure TListBoxSpecial.SetScroll(WithScroll:boolean);
begin
self.perform(LB_SETHORIZONTALEXTENT, 300, 0);
end;

procedure Register;
begin
RegisterComponents('Componentes', [TListBoxSpecial]);
end;

end.


La idea es crear un listbox con una barra de desplazamiento horizontal.

Un saludo.