Ingresar datos en un listbox a la derecha

[CarlosAlberto]

Estimados miembros del Club:¿cómo puedo ingresar datos en un listbox y que se ubiquen en el margen derecho de éste?
Gracias y saludos
Carlos Alberto

[*Caro*]

Hola CarlosAlberto, puedes utilizar el evento OnDrawItem de tu Listbox y la función DrawText para dar formato al texto:

Código Delphi [-]
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
 aItem : String;
begin
 aItem := ListBox1.Items[Index];
 DrawText(ListBox1.Canvas.Handle, PChar(aItem), StrLen(PChar(aItem)), Rect, DT_RIGHT);
end;

La propiedad Style del ListBox en lbOwnerDrawFixed.

Saluditos

[Caminante]

En el listbox pon la propiedad style en lbOwnerDrawFixed y en el evento ondrawitem pon esto

Código Delphi [-]
 
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
VAR
  Texto :string;
begin
  with Tlistbox(Control)do
  begin
    Texto:=items[index];
    canvas.FillRect(rect);
    inflaterect(rect,-2,-2);
    drawtext(canvas.Handle,pchar(texto),-1,rect,DT_RIGHT or DT_VCENTER)
  end;

Espero que te sirva.

Saludos

[CarlosAlberto]

Estimado Caminante: funcionó lo de colocar el texto numérico en el margen derecho pero los números se ven cortados por la mitad en cada fila del Listbox. Se ve el número de la mitad para arriba. ¿Cómo lo soluciono?

[CarlosAlberto]

Estimada Caro: los códigos que me enviaste funcionó bien.
Muchas Gracias.
Saludos.
Carlos Alberto
Paraná - Entre Ríos - Argentina