Estoy intentando derivar de un TrxLookupedit (unidad RXLOOKUP.PAS) para hacer publico un metodo:
ShowPopup(Origin:Tpoint)
Lo que deseo hacer es añadirle la propiedad AutoDropDown, pero como no tengo ni idea, he pensado mejor hacer publico ese método.
El problema que tengo es que la lista se queda indefinidamente abierta. ¿ Por qué ocurre ? o ¿ como se puede subsanar ese desaguisado?
el código que tengo es este: (perdonad si hay "burradas", pero no tengo ni idea de diseño de componentes)
Código:
type
TRxLookupEditSH = class(TRxLookupEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure ShowPopup();
published
{ Published declarations }
end;
procedure Register;
implementation
procedure TrxLookupEditSH.ShowPopup();
var p:TPoint;
begin
// seguro que hay una forma mejor....
p := Self.ClientOrigin;
p.Y := p.Y+ Self.ClientHeight;
Dec (p.X, BorderWidth +2);
Inc (p.Y,BorderWidth *2+2);
inherited ShowPopup(p);
end;
procedure Register;
begin
RegisterComponents('RX DBAware', [TRxLookupEditSH]);
end;
end.
gracias Mil.
Saludos