كنترل مقادير در اديت باكس

[علی رضائی]

با سلام در مورد يك اديت باكس كه با كليدهاي آپ وداون كنترل شود و مقادير آن بين 01 تا 60 قابل تغيير باشد راهنمايي نياز دارم. قبلا از همكاري شما تشكر دارم.

[farhad110]

سلام.
-از تب win32 یک کنترل upDown و از تب standard یک edit box روی فرم قرار بدید
-خاصیت Associate کنترل upDown رو روی Edit مربوطه قرار بدید
-min و max رو تنظیم کنید
موفق باشید

[علی رضائی]

مقدار مينيمم را 01 مي خواهم چگونه آنرا تنظيم كنم؟

[pezhvakco]

برای 01 می تونی نو رویداد OnChange از کد :
if Length(Edit1.Text) = 1 then
Edit1.Text:='0' + Edit1.Text
استفاده کنی .

[دلفــي]

با سلام در مورد يك اديت باكس كه با كليدهاي آپ وداون كنترل شود و مقادير آن بين 01 تا 60 قابل تغيير باشد راهنمايي نياز دارم. قبلا از همكاري شما تشكر دارم.


شما مي تونيد با استفاده از UpDown اين كار رو به راحتي انجام بديد :

براي اين كار بدون اينكه Associate رو با Edit مقداردهي كني در رويداد OnChanging در UpDown كد زير رو وارد كن :



if UpDown1.Posision < 10 then
Edit1.text := '0'+InttoStr(UpDown1.Posision) else
Edit1.text := InttoStr(UpDown1.Posision) ;



البته قبلا مقدار Max , Min رو در UpDown به ترتيب با 1 و 60 مقداردهي كن .

[Felony]

اگر منظورتون رو درست فهمیده باشم به این کارها نیازی نیست ، یه کامپوننت SpinEdit روی فرمتون قرار بدید و MinValue و MaxValue اون رو مقدار دهی کنید .