PDA

View Full Version : چطوری lable را یک واحد یک واحد اضافه کنه ؟


Valadi
سه شنبه 24 مرداد 1385, 12:15 عصر
فرض کنیم یک lable مقدارش است 10 حالا می خواهیم با زدن یک کلید از کیبورد بشود 11 و با زدون دوباره 12 و همین طور تا آخر ؟؟؟؟؟؟؟
:گیج: :گیج: :گیج: :گیج: :گیج: :گیج: :گیج: :گیج: :گیج: :گیج: :گیج: :گیج: :گیج: :گیج:
فرزاد دلفی باز
سه شنبه 24 مرداد 1385, 12:29 عصر
شما یک متغییر در var اصلی برنامه تعریف کنید و در onKeyPress فرم بنویس:
x:=0
if key=#13 then
begin
x:=x+1
Label1.Caption:=inttostr(x)
end
majid_afra222
سه شنبه 24 مرداد 1385, 12:31 عصر
سلام


label1.caption := IntToStr(StrToInt(label1.caption) + 1);
Valadi
چهارشنبه 25 مرداد 1385, 09:52 صبح
تشکر می کنم از شما دوستان عزیز