como trabalhar com lisbox que contem mais de 1 coluna?

Delphi

19/05/2004

alguem ae sabe como faço pra adicionar em uma listbox ...
um item na coluna1, coluna2, coluna3 ???


Salsa

Salsa

Curtidas 0

Respostas

Fabiano Freitas

Fabiano Freitas

19/05/2004

Faz isto:
No types declara :
  TListBox = class(stdctrls.TListBox)
  protected
    procedure CreateParams(var Params : TCreateParams); override;
    procedure CreateWnd; override;
  end;


no implementation:
procedure TListBox.CreateWnd;
var
  MatTabs : Array[0..1] of Integer;//2 colunas
begin
  MatTabs[0] := 17;
  MatTabs[1] := 100;
  inherited CreateWnd;
  Perform(LB_SETTABSTOPS,2,Longint(@MatTabs));
end;
{------------------------------------------------------------------------------}
procedure TListBox.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style or WS_HSCROLL or LBS_USETABSTOPS;
end;


Ao adicionar elementos utilize o 9 entre eles TListBox.add(´valor1´9´valor2);

Se vc precisar pegar ester valores em separado, para uma conferência qualquer pode criar um split, usando o próprio #9 como separador de valores.
Neste link já tem o split pronto para vc :
http://delphi.about.com/cs/adptips2002/a/bltip0902_2.htm


[]´
Fabiano Freitas


GOSTEI 0
POSTAR