TDirectoryListBox. Как раскрыть подпапки корневой папки без двойного нажатия мыши на выделеную строку.

[Denutrror]

Доброго времени суток.
Чтобы выделить строку в directorylistbox нужно мышью один раз щёлкнуть по ней.
Или:
var
S: integer;

DirectoryListBox.ItemIndex := s;
Чтобы показать подпапки в папке, нужно дважды щелкнуть по строке.
Как сделать это программно?

Например: я нажимаю на кнопку-> раскрываются подпапки выделеной строки (или имитируется DblClick на выделеную строку).

Подскажите, пожалуйста...........

[Denutrror]

Нашёл!!
Вот:
Directorylistbox1.OpenCurrent;
................................... .............................

[Stilet]

Читаем хелп о TDirectoryListBox.OpenCurrent;

Добавлено: Вот и молодец, что сам допер )

[Denutrror]

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

Читаем хелп о TDirectoryListBox.OpenCurrent;

Добавлено: Вот и молодец, что сам допер )

Спаибо......

А как тожесамое сделать с DriveComboBox?

[Stilet]

А он тут при чем? Что ты с ним хочешь сделать?
Если вызвать его обработчик то:

 DriveComboBox1.ItemIndex:=2;
 DriveComboBox1Change(DriveComboBox1);

[Denutrror]

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

А он тут при чем? Что ты с ним хочешь сделать?
Если вызвать его обработчик то:

Пишу программу для передачи/загрузки файлов через сокеты между двумя компьютерами.

Вчём проблема: посылаю комадну с сервера (клиента) :

serversocket1.Socket.Connections[selc].SendText('+@sdir' + inttostr(directorybox.ItemIndex));

Клиент принимает:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
rtxtL: string
begin

RtxtL:= copy(socket.ReceiveText,1,Maxint);

if AnsiLeftStr(rtxtL,6) = '+@sdir'  then
 begin
  DriveListBox.ItemIndex:= strtoint(AnsirightStr(rtxtL,1));
end
end;

После чего:
ItemIndex DriveListBox`a изменяется (диск С поменялся на диска А) , а вот в DirectoryListbox нечего не изменилось (остались папки диска С) . Что делать?

[Stilet]

Пишу программу для передачи/загрузки файлов через сокеты между двумя компьютерами.

Может проще использовать INDI FTP компоненты?

[Пепел Феникса]

а может вам для выбора файла TOpenDialog?
иль чтонить по современнее?

[Denutrror]

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

Может проще использовать INDI FTP компоненты?

Я только недавно начал изучать Pascal. Поэтому использую Sockets, поскольку я его более-менее изучил......

[Denutrror]

Сообщение от Пепел Феникса

а может вам для выбора файла TOpenDialog?

Я немогу точно сказать, но я неуверен что TOpenDialog позволит мне просматривать файлы и папки на удалённой машине. К тому же сложность с которой я столкнулся не такая уж и серьёзная(в чём я уверен), чтобы что-то менять.

Сообщение от Пепел Феникса

иль чтонить по современнее?

Куда мне посовременее если я и с этим разобраться немогу.