Kullanıcı girişi yaptıracağım fakat alan boşken geri döndüre

conari · Mesaj gönderen **conari** » 23 Kas 2006 02:39

Kodda ki hata nedir? Veya başka nasıl bir formül denemeliyim


procedure TSktForm.BitBtn1Click(Sender: TObject);
begin
    if EDKullanici.Text='' then
  begin
  ShowMessage('Kullanıcı adı boş geçilemez! Giriniz..');
  EDKullanici.SetFocus
end
    else
    SktForm.Visible:=False;
    sform.Show
end;

kadirkurtoglu · Mesaj gönderen **kadirkurtoglu** » 23 Kas 2006 02:51

Kod: Tümünü seç

procedure TSktForm.BitBtn1Click(Sender: TObject); 
begin 
    if EDKullanici.Text='' then 
      begin 
        ShowMessage('Kullanıcı adı boş geçilemez! Giriniz..'); 
        EDKullanici.SetFocus 
       end else  
       begin    
          SktForm.Visible:=False; 
          sform.Show
      end; 
end;

conari · Mesaj gönderen **conari** » 23 Kas 2006 02:57

bi begin yazmadık diyemi uffffffffff beeeeeeeeee

Sağol

kadirkurtoglu · Mesaj gönderen **kadirkurtoglu** » 23 Kas 2006 03:34

bi begin yazmadık diyemi uffffffffff beeeeeeeeee
Sağol

bide end;

programcılıkta nokta eksik olsa çalışmaz..