Delphi RadioGroup Bileşeni

'Adige · 9 Ağu 2017

Örnekte şehir ve bilet türü seçilerek kullanıcının seçimlerini ekrana yazan bir uygulama yapılmıştır. Uygulamada RadioGroup bileşenine ek olarak Button ve Label bileşenleri de kullanılmıştır. Ayrıca kodlarda case-of ve if-then-else yapısından yararlanılmıştır.

Uygulamada kullanıcı sol taraftaki alandan bir şehir seçer ardından "Seçimi Tamala" butonuna basar. Program labela kullanıcının seçimlerini yazar. Eğer kullanıcı sehir veya bilet türünü seçmemiş olursa ShowMessage komutu ile kullanıcıyı uyarır.

procedure TForm1.Button1Click(Sender: TObject);
begin
if ((RadioGroup1.ItemIndex = -1) or (RadioGroup2.ItemIndex = -1)) then
begin
ShowMessage('Sehir veya yon seçiniz');
end else
begin

case RadioGroup1.ItemIndex of
0: begin Label1.Caption := 'Ankara'; end;
1: Label1.Caption := 'Bartın';
2: Label1.Caption := 'Bayburt';
3: Label1.Caption := 'Hakkari';
4: Label1.Caption := 'Aksaray';
5: Label1.Caption := 'Kastamonu';
end;

case RadioGroup2.ItemIndex of
0: Label1.Caption := Label1.Caption +' - gidiş';
1: Label1.Caption := Label1.Caption +' - gidiş ve geliş';
end;

end;
end;

Delphi RadioGroup Bileşeni

'Adige

Administrator

Sosyal medya sayfalarımız