UpDown + Edit + String

[ichi]

Здравствуйте. Есть форма Form1, на ней добавлены два элемента Edit1 и ассоциированный с ним UpDown1. Необходимо в Edit1 показывать строковые значение вида 00, 01, 02 и т.д. При этом в текущий момент в UpDown1.Position будет равен 0, 1, 2 и т.д., соответственно.

Как я пытался реализовать:

procedure TForm1.FormCreate(Sender: TObject);
begin
  UpDown1Click(UpDown1, btNext);
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
 if (UpDown1.Position >= 0) and (UpDown1.Position <=9) then
  begin
    Edit1.Text := '0'+IntToStr(UpDown1.Position);
  end;
end;

т.е. создан обработчик нажатия на UpDown1, в этом случае все проходит корректно мне в Edit1 показывают 00, 01, 02 и т.д.

Почему в обработчике создания формы Form1 не срабатывает явно вызванный UpDown1Click. Т.е. в форме поначалу я вижу в Edit1 значение 0 а не 00.?

[Пепел Феникса]

а может условие не срабатывает?

[ichi]

а может условие не срабатывает?

procedure TForm1.FormCreate(Sender: TObject);
begin
  UpDown1Click(UpDown1, btNext);
  ShowMessage(Edit1.Text);
end;

ShowMessage сообщает: 00

Т.е. по-этому могу предположить, что срабатывает.

[fate]

так и не понял, тебе надо что бы при старте сработал UpDown1Click и в эдит было 00 ?
если так то поставь вызов процедуры UpDown1Click на событие onShow

P.S.
у тебя в объект инспекторе у edit1.text стоит 0 ?

[ichi]

так и не понял, тебе надо что бы при старте сработал UpDown1Click и в эдит было 00 ?

Верно

если так то поставь вызов процедуры UpDown1Click на событие onShow

Все работает, спасибо.

P.S.
у тебя в объект инспекторе у edit1.text стоит 0 ?

Да, установлен в 0


Почему в обработчике создания формы UpDown1Click не сработал?

[Пепел Феникса]

а вообще, зачем лишний код гонять, вам сразу 00 не поставить в эдит?

[ichi]

а вообще, зачем лишний код гонять, вам сразу 00 не поставить в эдит?

Если не привязывать, при помощи свойства Associate, к элементу UpDown1 элемент Edit1, то в обработчике создания формы Form1 легко можно выполнить Edit1.Text := '00'. Если выполнить привязку элемента UpDown1 к элементу Edit1, то в обработчике создания формы это уже не выполнится (Edit1.Text := '00'), и на форме в Edit1 я увижу 0 вместо 00. В OnShow формы это (Edit1.Text := '00') почему-то выполняется, даже если UpDown1 ассоциирован с Edit1. Может кто скажет почему?