Обновить список дисков TDriveComboBox с сетевыми дсками и Plug&Play
И вновь я не замечен Plug-n-Play'ем...
type//это наш "class cracer"
TNewDriveComboBox = class(TDriveComboBox)
end;
procedure TForm1.Button1Click(Sender: TObject);
var
Drive : char;
begin
Drive := DriveComboBox1.Drive;
//вызываем защищенный метод родительского класса
TNewDriveComboBox(DriveComboBox1).BuildList;
DriveComboBox1.Drive := Drive;
end;
Статья Обновить список дисков TDriveComboBox с сетевыми дсками и Plug&Play раздела Файловая система Диски может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.