Ver Mensaje Individual
  #1  
Antiguo 28-11-2006
Avatar de DarKraZY
DarKraZY DarKraZY is offline
Miembro
 
Registrado: ago 2003
Posts: 460
Reputación: 21
DarKraZY Va por buen camino
Nuevo componente con lista desplegable

Buenas foro!

Estoy creando un componente que tendrá acceso a base de datos y me gustaría saber ¿cómo conseguir que una propiedad del componente sea una lista desplegable?
Estos valores son creados dinámicamente ya que pertenecen a una base de datos.

Básicamente sería igual que por ejemplo un componente TTable o TStoredProc, los cuales muestran una lista desplegable para seleccionar el deseado.

He estado navegando por el código fuente de la VCL pero no encuentro la solución ya que esas mismas propiedades están definidas de la manera más normal
Código Delphi [-]
property StoredProcName: string read FProcName write SetProcName;
Código Delphi [-]
procedure TIBStoredProc.SetProcName(Value: string);
begin
  if not (csReading in ComponentState) then
  begin
    CheckInactive;
    if Value <> FProcName then
    begin
      FProcName := Value;
      FreeStatement;
      FParams.Clear;
      if (Value <> '') and
        (Database <> nil) then
        GenerateSQL;
    end;
  end
  else
    begin
      FProcName := Value;
      if (Value <> '') and (Database <> nil) then
        GenerateSQL;
    end;
end;

Aunque el método Set contiene código que no entiendo, todavía no sé cómo realizar lo de que aparezca la lista. ¿Es quizás algo relativo a alguna interfaz? ¿Algún editor de propiedades?

Gracias de antemano!
Responder Con Cita