Mega Code Archive

 

Categories / Delphi / VCL

 

Adjusting number and with of columns in a tfilelistbox

Question: Is it possible to adjust the number of columns and width of columns in a TFileListBox component? Answer: The following example demonstrates casting a FileListBox component to a TDirectoryListBox component so additional columns can be added and sized. Example: with TDirectoryListBox(FileListBox1) do begin Columns := 2; SendMessage(Handle, LB_SETCOLUMNWIDTH, Canvas.TextWidth('WWWWWWWW.WWW'), 0); end;