LA3 AP2A (Delphi) Tanggal 2 April 2011

Listing

Form 1

var
     Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.imer1Click(Sender: TObject);
begin
   form2.show;
   form1.Hide;
end;

procedure TForm1.Font1Click(Sender: TObject);
begin
   form3.show;
   form1.Hide;
end;

end.

Form 2

var
   Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Back1Click(Sender: TObject);
begin
     form1.show;
     form2.Hide;
end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
     If Label1.Visible = true Then Label1.Visible := false
          Else Label1.Visible:=true;
     end;

end.

Form 3

var
     Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.Back1Click(Sender: TObject);
begin
     form1.show;
     form3.Hide;
end;

procedure TForm3.RadioButton1Click(Sender: TObject);
begin
      Label1.Font.name:= 'Times New Roman'
end;

procedure TForm3.RadioButton2Click(Sender: TObject);
begin
      Label1.Font.name:= 'Comic Sans Ms'
end;

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
      if checkbox1.Checked then
          Label1.Font.Style := Label1.Font.Style+[fsBold]
      else
          Label1.Font.Style := Label1.Font.Style-[fsBold];
end;

procedure TForm3.CheckBox2Click(Sender: TObject);
begin
       if checkbox2.Checked then
          Label1.Font.Style := Label1.Font.Style+[fsItalic]
       else
          Label1.Font.Style := Label1.Font.Style-[fsItalic];
end;

procedure TForm3.CheckBox3Click(Sender: TObject);
begin
       if checkbox3.Checked then
          Label1.Font.Style := Label1.Font.Style+[fsUnderline]
       else
          Label1.Font.Style := Label1.Font.Style-[fsUnderline];
end;

procedure TForm3.Edit1Change(Sender: TObject);
begin
       label1.Caption := edit1.Text
end;

end.

Output