Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c