Crear Controles en Tiempo de Ejecucion
 

Hola tengo esta duda.....

Como podria hacer para crear Timage ( o cualquier control ) sin saber la cantidad fija que necesito crear....

Me explico mejor:

Leo un directorio buscando imagenes, (nunca se cuantas imagenes hay en ese directorio) y quiero cargarlas en Timage dentro de PageScroller

Y he ahi mi duda de como ir cargando las imagenes que voy encontrando para que se vean dentro de un PageScroller


Atte Saluda Neeruu :)

Bueno, no me queda claro si te interesa para imágenes o para controles en general.

Supongamos que vas a crear una cantidad de botones introducida por el usuario:

Código Delphi [-]
var
  NumBotones, I: Integer;
begin
  NumBotones := StrToInt(Edit1.Text);
  for I := 0 to NumBotones - 1 do
  begin
    with TButton.Create(Self) do
    begin
      Name := 'Boton' + IntToStr(I);
      Parent := Self;
      Top := 25 * (I + 1);
    end;
  end;

Hasta luego.

;)

bien y una vez creados en ejecucion?
 

Como accedo a los eventos de los botones on click etc, yo los he creado pero lo que no se es como ahora que los creo en tiempo de ejecucion como poder trabajar sobre ellos, gracias de antemano

No estoy seguro de entender bien tu pregunta... pero si es lo que creo, debes crear un método que cumpla con la firma TNotifyEvent, que es la del evento OnClick, por ejemplo este:

Código Delphi [-]
type
  TForm1 = class(TForm)
  //...
  private
    procedure ClickBotones(Sender: TObject);
  //...
implementation
//...
procedure TForm1.ClickBotones(Sender: TObject);
begin
  Label1.Caption := 'Has hecho click en el botón ' + (Sender as TButton).Caption;
end;

Y luego, cuando creas los botones, asignas este método a su evento OnClick, así:

Código Delphi [-]
var
  NumBotones, I: Integer;
begin
  NumBotones := StrToInt(Edit1.Text);
  for I := 0 to NumBotones - 1 do
  begin
    with TButton.Create(Self) do
    begin
      Name := 'Boton' + IntToStr(I);
      Parent := Self;
      Top := 25 * (I + 1);
      OnClick := ClickBotones;
    end;
  end;

Hasta luego.

;)