Здравствуйте, Гость
Понедельник, 25.09.2017, 06:53
Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: stalker, Ekz 
Форум » Все о Delphi » Начинающим » Из Browse в Edit
Из Browse в Edit
NoxterДата: Воскресенье, 07.03.2010, 16:22 | Сообщение # 1
Ранг 1
Группа: Проверенные
Сообщений: 6
Награды: 0
Репутация: 0
Статус: Offline
Всем привет)
Вопрос такой как передать значение из browse в поле Edit?
Вот сам код:
[code]
procedure TSDK_DIALOG.btn_browse_gcfClick(Sender: TObject);
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := SDK_DIALOG.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := 'Select folder';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
ShowMessage(TempPath);
GlobalFreePtr(lpItemID);
end;
end;
[/code]

А вот мой Edit:
[code]
procedure TSDK_DIALOG.steamapps_pathChange(Sender: TObject);
begin

end;
[/code]

[b]Добавлено[/b] (07.03.2010, 16:22)
---------------------------------------------
Все разобрался!
biggrin

Сообщение отредактировал Noxter - Понедельник, 08.03.2010, 08:22
 
AdminДата: Воскресенье, 07.03.2010, 17:47 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Ну ты хоть расскажи. У кого-нибудь возникнет проблема же.

Не оказываю помощь через личные сообщения и ICQ
 
NoxterДата: Понедельник, 08.03.2010, 08:17 | Сообщение # 3
Ранг 1
Группа: Проверенные
Сообщений: 6
Награды: 0
Репутация: 0
Статус: Offline
Да канешн)
Вот собсно код кнопочки при нажатии которой вылазит окно выбора папки:
Code
procedure TSDK_DIALOG.btn_browse_gcfClick(Sender: TObject);
var
TitleName : string;
lpItemID : PItemIDList;
BrowseInfo : TBrowseInfo;
DisplayName : array[0..MAX_PATH] of char;
TempPath : array[0..MAX_PATH] of char;
begin
FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
BrowseInfo.hwndOwner := SDK_DIALOG.Handle;
BrowseInfo.pszDisplayName := @DisplayName;
TitleName := 'Select folder';
BrowseInfo.lpszTitle := PChar(TitleName);
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
lpItemID := SHBrowseForFolder(BrowseInfo);
if lpItemId <> nil then
begin
SHGetPathFromIDList(lpItemID, TempPath);
GlobalFreePtr(lpItemID);
end;
steamapps_path.Text := TempPath;
end;

Собсно
Code
steamapps_path.Text := TempPath;

Это и есть поле TEdit, а
Code
TempPath;

Это и есть выбранный нами путь.

Code
WTF?


Сообщение отредактировал Noxter - Понедельник, 08.03.2010, 08:21
 
Форум » Все о Delphi » Начинающим » Из Browse в Edit
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2017
Хостинг от uCoz