Pagecontrol: Case-Problem

[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;