IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Lisans alınca veya alamayınca çalıştırmak istediğiniz kodları bitbtn1 in onclikine yazacaksınız
orjinali böyle;

Kod:

begin

if code.Text = inttostr(sayi*25+9) then

  begin

  Application.MessageBox('Program lisansı Alındı', 'Tebrikler!', MB_OK );

  end

  else

  begin

  Application.MessageBox('Program lisansı Alınamadı Hata: Yanlış Kod', 'Hata!', MB_OK or MB_ICONERROR)

  end

end;

buda sizin düzenleyeceğiniz şekil;

Kod:

begin

if code.Text = inttostr(sayi*25+9) then

  begin

  //buraya lisans alınca çalışacak olan kod

  end

  else

  begin

  //buraya lisans almayınca(hata) calışacak olan kod

  end

end;

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]