[SawA]

Сообщение от NumLock

--в обработчике OnChange у DirectoryListBox1 пишем:

Код:

Label3.Caption:=DirectoryListBox1.Directory;

Спасибо большое это помогло. Скажите пожалуйста чайнику, где вы посмотрели этот код я его не видел где-то может скрыто вы сказали потому что вот:

Сообщение от NumLock

Код:

procedure TDirectoryListBox.SetDirLabelCaption;
var
  DirWidth: Integer;
begin
  if FDirLabel <> nil then
  begin
    DirWidth := Width;
    if not FDirLabel.AutoSize then DirWidth := FDirLabel.Width;
    FDirLabel.Caption := MinimizeName(Directory, FDirLabel.Canvas, DirWidth);
  end;
end;

я эту процедурку вроде лазаю но не вижу как не странно в своем же проекте вот думаю может она где автоматом скрыто прописывает
Спасибо еще рас большое с меня рек если рек примется когда на весы тыкну