Posted by IT EduCation on Minggu, Maret 20, 2011
Objeck yang digunakan:1.RadioGroup
Langkahnya sebagai berikut:
1.Buat Objek pada form
2.Cari Item pada Object Inspector,klik "Sting".Akan Muncul String List Editor.
3.Masukan/ketikan di kotak dialog String List Editor Tersebut.Klik OK.
4.kLIK 2X Objek RadioGroup,Isikan Script dibawah ini:
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
Case RadioGroup1.itemindex of
0:
begin
RadioGroup1.Height:=150;
RadioGroup1.Width:=300;
end;
1:
begin
RadioGroup1.Height:=300;
RadioGroup1.Width:=150;
end;
end;
end;
end.
5. Tekan F9 Untuk mencobanya.
DoWNLOAD filenya disini!!!!!
0 komentar:
Posting Komentar