|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
SpinEdit или UpDown
Есть несколько Edit с числовыми значениями и SpinEdit помогите обработать нажатия кнопок SpinEdit так, чтобы менялись значения Edit
Во вложении я сделал на обычных кнопках, можно ли сделать это же на SpinEdit или на UpDown??? |
#2
|
||||
|
||||
Для вашего примера, добавьте на форму SpinEdit1 и задайте в форм криэйт
Код:
procedure TForm1.FormCreate(Sender: TObject); begin SpinEdit1.Button.OnUpClick:= Button1Click; SpinEdit1.Button.OnDownClick := Button2Click; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
crazyman (12.05.2017)
|
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
crazyman (13.05.2017)
|
#5
|
|||
|
|||
Цитата:
Последний раз редактировалось crazyman, 12.05.2017 в 23:56. |
#6
|
||||
|
||||
Не меняется, правильно, поскольку переназначаются стандартные обработчики, поэтому требуется это делать самостоятельно, вот примерный код после издевательств над вашей сборкой
Код:
... SpinEdit1: TSpinEdit; procedure SpinEditUp(Sender: TObject); procedure SpinEditDown(Sender: TObject); ... procedure TForm1.SpinEditUp(Sender: TObject); begin SpinEdit1.Value:= SpinEdit1.Value+1; Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1); Edit2.Text:=IntToStr(StrToInt(Edit2.Text)+1); Edit3.Text:=IntToStr(StrToInt(Edit3.Text)+1); Edit4.Text:=IntToStr(StrToInt(Edit4.Text)+1); end; procedure TForm1.SpinEditDown(Sender: TObject); begin SpinEdit1.Value:= SpinEdit1.Value-1; Edit1.Text:=IntToStr(StrToInt(Edit1.Text)-1); Edit2.Text:=IntToStr(StrToInt(Edit2.Text)-1); Edit3.Text:=IntToStr(StrToInt(Edit3.Text)-1); Edit4.Text:=IntToStr(StrToInt(Edit4.Text)-1); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#7
|
|||
|
|||
Цитата:
|
#8
|
||||
|
||||
Цитата:
Код:
procedure TForm1.SpinEditUp(Sender: TObject); begin SpinEdit1.Value:= SpinEdit1.Value + SpinEdit1.Increment; if not (SpinEdit1.Value = SpinEdit1.MaxValue) then begin ... end; end; procedure TForm1.SpinEditDown(Sender: TObject); begin SpinEdit1.Value:= SpinEdit1.Value - SpinEdit1.Increment; if not (SpinEdit1.Value = SpinEdit1.MinValue) then begin ... end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
crazyman (13.05.2017)
|