Lisans alınca veya alamayınca çalıştırmak istediğiniz kodları bitbtn1 in onclikine yazacaksınız
orjinali böyle;
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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: Kodu kopyalamak için üzerine çift tıklayın!
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;
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.