Sizler İçin Çok kolay (Yardım)

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
ekrem61
Üye
Mesajlar: 8
Kayıt: 07 May 2005 05:22

Sizler İçin Çok kolay (Yardım)

Mesaj gönderen ekrem61 »

Öncelikle merhaba Delphi severler nasılsınız.Ben Delphi kullanmaya yeni başlamaış bir kullanıcıyım.

Inputbox a verileri girdikten sonra

procedure TForm1.FormClick(Sender: TObject);
var
soyad:string;
begin
soyad:=InputBox('Bilgi girişi','Adınız','');
MessageDlg(soyad,mtWarning,[mbOK],0);
end;

Ben burada bir if döngüsü açmak istiyorum ve cancel a bastığım zaman projenin çalışmasını istemiyorum bana bu konuda yardımcı olabilirmisiniz şimdiden çok teşekkürler
Elif Okuduk ötürü
Pazar eyledik götürü
Yaradılanı Hoş Gör
Yaradan dan ötürü
Kullanıcı avatarı
naile
Admin
Mesajlar: 1873
Kayıt: 11 Haz 2003 10:11

Re: Sizler İçin Çok kolay (Yardım)

Mesaj gönderen naile »

Kod: Tümünü seç

procedure TForm1.FormClick(Sender: TObject);
var
soyad:string;
begin
soyad:=InputBox('Bilgi girişi','Adınız','');
if MessageDlg(soyad,mtWarning,mbOKCancel,0) = mrOK Then
  //ok denilince çalışacak ifade. cancel denilirse çalışmaz!
end;

Kullanıcı avatarı
ekrem61
Üye
Mesajlar: 8
Kayıt: 07 May 2005 05:22

Teşekkür

Mesaj gönderen ekrem61 »

Naile teşekkürler
Elif Okuduk ötürü
Pazar eyledik götürü
Yaradılanı Hoş Gör
Yaradan dan ötürü
Kullanıcı avatarı
mussimsek
Admin
Mesajlar: 7603
Kayıt: 10 Haz 2003 12:26
Konum: İstanbul
İletişim:

Re: Teşekkür

Mesaj gönderen mussimsek »

ekrem61 yazdı:Naile teşekkürler
babacım forum kurallarını okuyup uyalım. Bir admin var burda deli diyorlar, aman tikkat :)
Kullanıcı avatarı
tuanna
Üye
Mesajlar: 582
Kayıt: 06 Ara 2004 05:01
Konum: Ankara
İletişim:

Mesaj gönderen tuanna »

admin doğru sölüyor...
Siz hayal edin...Biz yapalım TuannaSoft...
Cevapla