Можно ли изменить число колонок и их ширину в компоненте TFileListBox?

Previous  Top  Next

    
 

 

 

В приведенном примере FileListBox приводится к типу TDirectoryListBox - таким образом можно добавиь дополнительные колонки.

Code:

with TDirectoryListBox(FileListBox1) do

begin

Columns := 2;

SendMessage(Handle, LB_SETCOLUMNWIDTH, Canvas.TextWidth('WWWWWWWW.WWW'),0);

end;

 

©Drkb::00657