Текущий архив: 2002.04.01;
Скачать: CL | DM;
Вниз
Как в SHBrowseForFolder диалог вставить TCheckBox? Найти похожие ветки
← →
Tomvitas (2002-01-29 00:52) [0]Как в SHBrowseForFolder диалог вставить TCheckBox?
Диалог вызываю функцией:
function BrowseForFolder(var FolderName: string): Boolean;
var BrowseInfo : TBrowseInfo;
ItemIDList : PItemIDList;
DisplayName : array [0..MAX_PATH] of char;
begin
Result := False;
FillChar(BrowseInfo, SizeOf(BrowseInfo), #0);
with BrowseInfo do
begin
hwndOwner := Application.Handle;
pszDisplayName := @DisplayName[0];
lpszTitle := "Select directory";
ulFlags := BIF_RETURNONLYFSDIRS;
end;
ItemIDList := SHBrowseForFolder(BrowseInfo);
if Assigned(ItemIDList) then
if SHGetPathFromIDList(ItemIDList, DisplayName) then
begin
FolderName := DisplayName;
Result := True;
end;
end;
← →
VuDZ © (2002-01-29 07:03) [1]тебе надо написать свой шаблон диалога и потом добавить его к нужному. это ги де-то было в MSDN описано. если надо - могк прислать нужное, но на С++
← →
Raptor © (2002-01-29 21:59) [2]2 VuDZ
Не обязательно писать шаблон. Я поступал иначе. Брал и вызывал этот диалог, а потом вставлял в него чекбокс (естественно не TCheckBox) и заменял процедуру окна диалога. При изменении чекбокса срабатывала моя процедура окна, которая записывала состояние чекбокса и потом вызывала старую процедуру окна. Вот и все.
← →
tomvitas (2002-01-31 19:41) [3]Спасибо за советы, но нельзя ли конкретнее, хоть что-нибудь в коде. Мне некогда голову ломать, работа почти завершина, все на этом чекбоксе застряло. :( Помогите!!!
Страницы: 1 вся ветка
Текущий архив: 2002.04.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.009 c
