Pytanie : Pomoc potrzebować z procedura

Cześć,

The procedura EnableAllRichEdits umożliwiać lub obezwładniać wszystkie dbrichedits na
every tabsheet pagecontrol. Ale I chcieć PageControl
anymore, I mieć właśnie the dbrichedit składnik teraz. W Ten Sposób the procedura have
to być zmieniać/disable the dbrichedit. Móc someone?

Thank ty w advanced.

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

procedure TMainForm.EnableAllRichEdits (Umożliwiać: Boolowski);
var i, ii: Integer;
     strona: TTabSheet;
zaczynać
     dla i: = (0) PageControl1.PageCount - (1)
          zaczynać
          strona: = PageControl1.Pages [i];
          dla ii: = (0) page.ControlCount - (1)
               zaczynać
               jeżeli strona. Kontrola [ii] być DBRichEdit wtedy
                    strona. Kontrola [ii]. Umożliwiać: = Umożliwiać;
               końcówka;
          końcówka;
końcówka;

Odpowiedź : Pomoc potrzebować z procedura

procedura TMainForm.EnableAllRichEdits (Umożliwiać: Boolowski);
var i: Integer;
zaczynać
    dla i: = (0) ControlCount - (1)
        jeżeli Kontrola [i] być TDBRichEdit wtedy
            Kontrola [i]. Umożliwiać: = Umożliwiać;
końcówka;
Inne rozwiązania  
 
programming4us programming4us