Készítünk egy összetevőt - a mappák kiválasztásának ablakát - cikkeket

A Delphi 6 szabványos párbeszédablakai (a párbeszédpanelek lap) között hiányzik a párbeszédpanel a mappák kiválasztására, mivel ez nem szerencsétlen. De semmi, most kijavítjuk ezt a mulasztást a megfelelő komponens megírásával.

Új összetevő létrehozásához a Delphi IDE programban válassza a Fájl> Új> Egyéb parancsot, majd kattintson az Új összetevő elemre a megjelenő ablakban. Megjelenik egy párbeszédpanel, amelyben:

• Ancensor típusú (az új komponens ősei osztály) - adja meg a TComponent-t;
• Class Name (új osztálynév) - TBrowseFolderDlg;
• Paletta oldal (fül neve: a párbeszédablakot a standard delphi-val együtt adjuk meg) - Párbeszédek.

Hagyja a maradékot változatlanul, és kattintson az OK gombra. MegaDialogunkat a komponens Nyilvános Nyilatkozatokban kijelölt funkcióval hívjuk meg:

Ha a cím a párbeszédpanel címe (bármelyik ízlésedet megadja), h a tulajdonos ablakának keze (azaz a program). A kódban használt parancsokat a ShlObj.pas tartalmazza, ezért ne felejtsd el ezt a modult a felhasználások szakaszban megadni.

Készen állsz? Mentse el, és válassza a Komponens> Telepítőelem elemet, telepítse a párbeszédablakunkat az Adatforrás neve mezőben található BrowseFolderDlg.pas fájl elérési útjának megadásával.

Meghívhat egy párbeszédet a programból, mint ez (persze, miután elhagyta a TBrowseFolderDlg-et az űrlapon):

Természetesen ez csak egy teljes értékű komponens "vázlata", és a modernizáció korlátlan.

Kapcsolódó cikkek

Ha más webhelyre szeretnél hivatkozni erre a cikkre, használja a következő HTML kódot: