![]() |
|
|
|
|
#1
|
|||
|
|||
|
Здравствуйте!
Такой вопрос. Для выбора файла я использую OpenDialog Код:
openDialog := TOpenDialog.Create(self);
openDialog.InitialDir := GetCurrentDir;
openDialog.Options := [ofFileMustExist];
openDialog.Filter :=
'*.bmp';
openDialog.FilterIndex := 2;
if openDialog.Execute
then ShowMessage('File : '+openDialog.FileName)
else ShowMessage('Открытие файла остановлено');
openDialog.Free;Заранее спасибо! |
|
#2
|
|||
|
|||
|
Код:
...
if openDialog.Execute
then Image1.Picture.LoadFromFile(openDialog.FileName);
else ShowMessage('Открытие файла остановлено');
... |