A mellékelt példában megjeleníthetünk a nyomógombbal egy OpenDialog ablakot, melynek a mappaválasztó legördülő listája nem látható, így akadályozva meg, hogy a felhasználó fölfelé haladjon a mappa-szerkezetben.
Ehhez a TOpenDialog komponens OnShow eseményében kell elvégeznünk néhány alapvető metódushívást. Az EnumChildWindows API metódust hívjuk először, mely a USER32.DLL-ben található, és a deklarációja a következő:
EnumChildWindows
BOOL EnumChildWindows(
HWND hWndParent,
WNDENUMPROC lpEnumFunc,
LPARAM lParam
);
A metódussal lekérdezhetők egy adott ablak gyermekablakai, gyermekobjektumai.
Paraméterek
HWND hWndParent
A szülő ablak kezelője.
WNDENUMPROC lpEnumFunc
A lekérdezéshez kapcsolódó CALLBACK függvény, melyet mi valósítunk meg.
LPARAM lParam
Most figyelmen kívül hagyjuk, értéke nulla.
Visszatérési érték
Sikeres művelet végrehajtás esetében nem nulla.
A metódus meghívásakor átadjuk a ChildrenEnum metódust paraméterként.
EnumChildWindows(GetParent(OpenDialog1.Handle), @ChildrenEnum, LongInt(0));
A ToolBarHandle egy globális változó, mely értéket a ChildrenEnum CALLBACK metódusban kap. A ChildrenEnum metódus kódja a következőképpen fest.
Először egy változóba minden lekérdezéskor megkapjuk az adott gyermekkontrol osztályának nevét.
SetLength(theClassName, 256);
GetClassName(AHandle, PChar(theClassName), 255);
Amennyiben a gyermekkontrol osztályának neve a „ToolbarWindow32” karakterlánccal azonos, akkor a kezelőjét elmentjük a globális változóba. Ezt követően a CALLBACK metódus visszatér.
tmpS := StrPas(PChar(theClassName));
if Pos('ToolbarWindow32', tmpS) > 0 then
begin
ToolbarHandle := AHandle;
end;
A kapott kezelőt felhasználva a kontrolt elrejtjük.
if ToolbarHandle > 0 then
ShowWindow(ToolbarHandle, SW_HIDE);
SendMessage(GetParent(OpenDialog1.Handle), CDM_HIDECONTROL, IDDROPDOWN, 0);
SendMessage(GetParent(OpenDialog1.Handle), CDM_HIDECONTROL, IDLOOKINLABEL, 0);
Erre a műveletre a SendMessage API metódust használjuk fel a megfelelő üzenettel, mely most a CDM_HIDECONTROL.