Frage : Hilfe benötigt mit Verfahren

Hallo,

The ermöglicht Verfahren EnableAllRichEdits oder sperrt allen dbrichedits auf
every tabsheet eines pagecontrol. Aber ich möchte nicht ein PageControl
anymore verwenden, ich habe gerade den dbrichedit Bestandteil jetzt. So wird das Verfahren have
to geändert, um das dbrichedit zu aktivieren. Kann jemand mir helfen?

Thank Sie in advanced.

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

procedure TMainForm.EnableAllRichEdits (ermöglichen: Boolesch);
var I, II: Ganze Zahl;
     Seite: TTabSheet;
anfangen
     für i: = 0 zu PageControl1.PageCount - 1 tun
          anfangen
          Seite: = PageControl1.Pages [i];
          für II: = 0 zu page.ControlCount - 1 tun
               anfangen
               wenn Seite. Kontrollen [II] sind DBRichEdit dann
                    Seite. Kontrollen [II]. Ermöglicht: = ermöglichen;
               Ende;
          Ende;
Ende;

Antwort : Hilfe benötigt mit Verfahren

Verfahren TMainForm.EnableAllRichEdits (ermöglichen: Boolesch);
var I: Ganze Zahl;
anfangen
    für i: = 0 zu ControlCount - 1 tun
        wenn Kontrollen [i] TDBRichEdit dann sind
            Kontrollen [i]. Ermöglicht: = ermöglichen;
Ende;
Weitere Lösungen  
 
programming4us programming4us