Всем привет)
Вопрос такой как передать значение из 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)
---------------------------------------------
Все разобрался!
