Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Загрузка файлов через "Обзор"

Автор: N0b0dy 5.3.2006, 15:02

Привет всем!
Подскажите плз каким образом юзер в проге может выбрать тот файл, который надо использовать через кнопочку "Обзор"
в факе видел только выбор файла перетаскиванием и выбор каталога.

Автор: Poseidon 5.3.2006, 15:29

Допустим button1 - это и есть "кнопочка обзор"

Код


function GetDialogFile: TFileName;
var OpenDialog: TOpenDialog;
begin
OpenDialog:= TOpenDialog.Create(nil);
if OpenDialog.Execute
then result:= OpenDialog.FileName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption:= GetDialogFile;
end;

Автор: N0b0dy 5.3.2006, 16:51

ой ))
спасибо большое smile