Vraag : Hulp nodig met procedure

Hallo,

The laat de procedure EnableAllRichEdits of maakt alle dbrichedits op
every tabsheet van een pagecontrol toe onbruikbaar. Maar ik wil geen PageControl
anymore gebruiken, nu heb ik enkel de dbricheditcomponent. Zo wordt de procedure have
to veranderd om toe te laten/onbruikbaar maakt dbrichedit. Kan iemand me helpen?

Thank u in advanced.

Peter Kiers
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TMainForm.EnableAllRichEdits (laat toe: Van Boole);
var i, ii: Geheel;
     pagina: TTabSheet;
begin
     voor I: = 0 aan PageControl1.PageCount - 1 
          begin
          pagina: = PageControl1.Pages [I];
          voor ii: = 0 aan page.ControlCount - 1 
               begin
               als pagina. De controles [ii] is dan DBRichEdit
                    pagina. Controles [ii]. Toegelaten: = Laat toe;
               eind;
          eind;
eind;

Antwoord : Hulp nodig met procedure

procedure TMainForm.EnableAllRichEdits (laat toe: Van Boole);
var i: Geheel;
begin
    voor I: = 0 aan ControlCount - 1
        als de Controles [I] dan TDBRichEdit is
            Controles [I]. Toegelaten: = Laat toe;
eind;
Andere oplossingen  
 
programming4us programming4us