Советы по Delphi

       

FileListBox с двумя колонками...как


with TDirectoryListBox(FileListBox1) dobeginColumns := 2;SendMessage(Handle, LB_SETCOLUMNWIDTH,LoWord(GetTextExtent(Canvas.Handle, 'WWWWWWWW.WWW', 12)), 0);end;

Успехов.

Kurt [000653]



Содержание раздела