Fråga : Hjälp som behövs med tillvägagångssätt

Hi tillvägagångssättet EnableAllRichEdits för

The möjliggör eller inaktiverar alla dbrichedits på tabsheet för
every av en pagecontrol. Men jag önskar inte att använda en PageControl
anymore, mig har precis den del- dbrichediten nu. Så tillvägagångssätthaveto är ändrande att möjliggöra/disable dbrichediten. Kan någon hjälpa mig?

Thank dig i advanced.

Peter Kiers > för

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

" codeBody " " >procedure TMainForm.EnableAllRichEdits för class= " för " klar "

Svar : Hjälp som behövs med tillvägagångssätt

tillvägagångssätt TMainForm.EnableAllRichEdits (möjliggöra: Boolean);
var i: Heltal;
börja
    för I: = 0 till ControlCount - 1 gör
        om kontrollerar [I] är TDBRichEdit därefter
            Kontrollerar [I]. Möjliggjort: = möjliggöra;
avsluta;