Seleccionar un item en FileListBox desde codigo

[Anel Hernandez]

Hola,

como puedo seleccionar desde codigo un TFileListBox, es decir, que aparezca un item seleccionado.

lo intente con itemIndez pero no funcioana. Igual con selected.

gracias

[ecfisa]

Hola.

Ejemplo:

Código Delphi [-]
procedure SelectItemFLB(FLB: TFileListBox; Inx: Integer);
begin
  Dec(inx);  // comienza en FLB.Items[0]
  if (Inx >= 0)and(Inx < FLB.Items.Count) then
    FLB.FileName := FLB.Items[Inx]
end;

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SelectItemFLB(FileListBox1, 5); // en realidad posición 4
end;

Saludos.

[Anel Hernandez]

gracias, funciona bien. pero no se ejecuta el onchange. como puedo hacer para que al seleccionarse desde codigo se ejecute el onchange?

gracias

[ecfisa]

Empezado por Anel Hernandez

gracias, funciona bien. pero no se ejecuta el onchange. como puedo hacer para que al seleccionarse desde codigo se ejecute el onchange?

gracias

Hola.

Acabo de hacer la prueba y siempre que a la función SelectItemFLB se le envíe como argumento (Inx) un valor diferente al item actualmente seleccionado, el evento OnChange del TFileListBox se dispara correctamente...

Saludos.

[Anel Hernandez]

yo no puse el procedimiento, puse directamente:FLB.FileName := FLB.Items[Inx]

y no entra al onchange

[ecfisa]

Empezado por Anel Hernandez

yo no puse el procedimiento, puse directamente:FLB.FileName := FLB.Items[Inx]

y no entra al onchange

Hola.

Un ejemplo en forma directa:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Inx: Integer;
begin
  Inx := 5;
  with FileListBox1 do
    FileName := Items[Inx];
end;

De este modo también dispara el evento OnChange del TFileListBox sin problemas.

Saludos.