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.
__________________
Vivir a la deriva,
sentir,
que no se que hago aki...
(Extremo)
|