Puteți edita proprietățile din fereastra Inspector de obiecte în două moduri. Una este să dai utilizatorului posibilitatea de a edita proprietățile ca un șir de text. Altele necesită crearea unei casete de dialog speciale în care proprietatea este editată. În unele cazuri, va trebui să utilizați ambele metode pentru a edita o singură proprietate.
2. Editați proprietatea ca text.
3. Editați proprietatea în caseta de dialog (opțional).
funcția GetAttributes: TPropertyAttributes; suprascrie;
funcția GetValue. string; suprascrie;
modificarea procedurii; suprascrie;
Luați în considerare metodele noii clase în ordine.
Funcția GetAttributes se adaugă la multitudinea de paDialog moștenit (există un buton „...«) și paReadOnly (proprietatea nu pot fi editate direct în Object Inspector, dar numai în dialog, numit prin butonul»...“) atribute:
funcția THintProperty.GetAttributes: TPropertyAttributes;
Rezultat: = moștenit GetAttributes + [paDialog, paReadOnly];
Funcția GetValue înlocuiește „greșit“ simboluri # 10 și # 13 (retur de transport și o linie nouă) la simbolul „>“:
funcția THintProperty.GetValue. șir de caractere;
pentru i: = 1 la Byte (rezultat [0])
dacă rezultatul [i]<#32 then result[i]:='>„;
Procedura de editare apelează un dialog pentru introducerea șirurilor prompte. Ați putea să vă desenați propriul dialog, dar îl puteți folosi deja. Mai multe dialoguri diferite sunt în directorul X: \ DELPHI \ SOURCE \ LIB. Folosim modulul STREDIT.PAS, în care există un dialog necesar pentru editarea liniilor:
cu HintEditDlg face
Articole similare
Trimiteți-le prietenilor: