Printre dialogurile standard ale Delphi 6 (fila Dialoguri), dialogul pentru selectarea unui dosar, deoarece nu este nefericit, lipsește. Dar nimic, acum vom corecta această omisiune scriind componenta corespunzătoare.
Pentru a crea o nouă componentă, în Delphi IDE, selectați Fișier> Nou> Altele, apoi faceți clic pe Componentă nouă în fereastra care apare. Apare o casetă de dialog în care:
- Tipul de tip ancensor (clasa strămoșilor noii componente) - introduceți TComponent;
- Numele clasei (noul nume de clasă) - TBrowseFolderDlg;
- Paletă pagină (numele tabelului: vom pune dialogul nostru împreună cu Delphi standard) - Dialoguri.
Lăsați restul neschimbat și faceți clic pe OK. MegaDialogul nostru va fi numit prin funcția declarată în declarațiile publice ale componentei:
În cazul în care titlul este titlul dialogului (puneți orice pentru gustul dvs.), h este mânerul ferestrei de proprietar (adică programul dvs.). Și comenzile utilizate în cod sunt conținute în ShlObj.pas, așa că nu uitați să specificați acest modul în secțiunea utilizări.
Ești gata? Salvați-l și selectați Component> Install Component, instalați dialogul nostru specificând calea către fișierul BrowseFolderDlg.pas din secțiunea Unit File Name.
Puteți apela un dialog de la acest program (desigur, după ce lăsați TBrowseFolderDlg pe formular):
Desigur, acesta este doar "scheletul" unei componente cu drepturi depline, iar domeniul de modernizare este nelimitat.
Articole asemănătoare
Pentru a insera un link catre acest articol pe un alt site, folositi urmatorul cod HTML:
Trimiteți-le prietenilor: