Afficher plusieurs colonnes dans un TFilelistBox

Procedure ShowMultiColumns(FileListBox : TFileListBox; bValue : Boolean);
begin
with TDirectoryListBox(FileListBox) do
begin
Columns := Ord(bValue) and (Ord(bValue) and 1);
SendMessage(Handle, LB_SETCOLUMNWIDTH, Canvas.TextWidth('WWWWWWWW.WWW'),0);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMultiColumns(FileListBox1, true);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour02/02/2002
VisualisationVu 1185 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur