Latihan 6 Pemrograman Visual

unit Lat6;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Panel1: TPanel;

    Button1: TButton;

    ComboBox1: TComboBox;

    Edit1: TEdit;

    RadioGroup1: TRadioGroup;

    Edit2: TEdit;

    procedure Button1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  a,b:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:=(a);

edit2.Text:=(b);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

combobox1.Text:='';

radiogroup1.ItemIndex:=-1;

case Combobox1.ItemIndex of

0:begin

a:='laki-laki';

b:='pemain sepakbola';

end;

end;

end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

begin

combobox1.ItemIndex:=-1;

case RadioGroup1.ItemIndex of

0:begin

a:='francesc';

b:='i want you';

end;

1:begin

a:='fabregas';

b:='i need you';

end;

2:begin

a:='soler';

b:='i love you';

end;

end;

end;

end.