Turkhackteam.net/org - Turkish Hacking & Security Platform...  
Geri git   Turkhackteam.net/org - Turkish Hacking & Security Platform... >
Programlama
> Delphi


Delphi RadioGroup Bileşeni

Delphi

Yeni Konu aç Cevapla
 
Seçenekler
Alt 09-08-2017   #1
  • Online
  • Korgeneral
  • Genel Bilgiler
Üyelik tarihi
Oct 2012
Nereden
Sql Database
Yaş
24
Mesajlar
Konular


  
Delphi RadioGroup Bileşeni



Ö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.


Alıntı:
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;
    


__________________

"Kendinizi geliştirmeye o kadar çok zaman harcayın ki Başkalarının yaptıklarıyla ilgilenmeye ve onları eleştirmeye vaktiniz olmasın"
Online
 
Alıntı ile Cevapla
Cevapla

Bookmarks

Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks Kapalı
Pingbacks Kapalı
Refbacks Kapalı


Bilgilendirme Turkhackteam.net/org
Sitemizde yer alan konular üyelerimiz tarafından açılmaktadır.
Bu konular yönetimimiz tarafından takip edilsede gözden kaçabilen telif hakkı olan veya mahkeme kararı çıkmış konular sitemizde bulunabilir. Bu tür konuları bize turkhackteamiletisim [at] gmail.com adresine mail atarak bildirdiğiniz takdirde en kısa sürede konular hakkında gerekli işlemler yapılacaktır.
Please Report Abuse, DMCA, Harassment, Scamming, Warez, Crack, Divx, Mp3 or any Illegal Activity to turkhackteamiletisim [at] gmail.com


Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz.
Turkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Turkhackteam sorumlu değildir. Sitelerinize Turkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.



         

Powered by vBulletin® Copyright ©2000 - 2017

TSK Mehmetçik Vakfı

Türk Polis Teşkilatını Güçlendirme Vakfı



Google Links
instagram Takipçi Hilesi

wau

Search Engine Friendly URLs by vBSEO 3.6.0 ©2011, Crawlability, Inc.