Diseño de componentes

[vichovi]

Hola marcsc:

He probado lo que me dijiste y no hay manera, no esta disponible el metodo ( ) perform. El codigo era el siguiente:

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

Con tu ayuda:

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


Pero sigue sin dejarme utilizar el perform.

Por favor echame una manita. Un saludo y gracias.

(Perdon a todos por no haber posteado al foro correcto, espero que no volvera a ocurrir)