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)