Pagecontrol: Case-Problem

[Störtebeker]

Hallo,

die Entwicklung meines Editors schreitet voran. Ich weiß nicht, ob mein Anliegen am folgenden Code schon ersichtlich ist aber trotzdem stelle ich ihn mal vor die Frage:

Delphi-Quellcode:

procedure TForm1.PageControl1PageChanged(Sender: TObject);
begin
case PageControl1.ActivePageIndex of
  0: ComboBox3.Text := 'HTML'; 
     SynEdit1.Highlighter:=SynHTMLSyn1;
  1: ComboBox3.Text := 'JAVA'; 
     SynEdit1.Highlighter:=SynJavaSyn1;
  2: ComboBox3.Text := 'C++'; 
     SynEdit1.Highlighter:=SynCppSyn1;
  end 
end;

So, nun die Frage: Ich habe ein Pagecontrol mit den Seiten
0: Web
1: Java
2: C++

Wenn ich jetzt zwishen den Seiten hin und herwechsle, soll sich sowohl der Wert in der Combox für die Highlighterauswahl ändern, als auch der aktive Highlighter des SynEdits. Nur kriege ich irgendwie die Anweisung nicht so ganz hin. Habe es schon mit "AND" versucht. Ohne Erfolg.

[omata]

Mehrere Anweisungen zu einer zusammenfassen: begin-end-Block

Delphi-Quellcode:

procedure TForm1.PageControl1PageChanged(Sender: TObject);
begin
case PageControl1.ActivePageIndex of
  0: begin
       ComboBox3.Text := 'HTML';
       SynEdit1.Highlighter:=SynHTMLSyn1;
     end;
  1: begin
       ComboBox3.Text := 'JAVA';
       SynEdit1.Highlighter:=SynJavaSyn1;
     end;
  2: begin
       ComboBox3.Text := 'C++';
       SynEdit1.Highlighter:=SynCppSyn1;
     end;
  end
end;

[Störtebeker]

:wall:

Natürlich. Jetzt wo du es "schreibst".
Jetzt geht es.

Danke omata.
Irgendwie hatte mein Kopf die Tür zu dieser Idee für einen Moment verschlossen.