Скачать: CL | DM;

Перескакивание строк   Найти похожие ветки 

← →
Lelik   (2004-06-03 00:14) [0]

Есть такая процедура почему сразу после (*) она перескакивает на (**). Если можно исправить то как спасибо

procedure TForm11.Button2Click(Sender: TObject);
begin
try
х1:=strtofloat(edit1.Text);
х2:=strtofloat(edit2.Text);
t4:=strtofloat(edit9.Text);
t5:=strtofloat(edit10.Text);
 if (x1>1)or(x2>1)then begin
        showmessage("эта штука д/б меньше1");
        edit6.Text:="";
       edit7.Text:="";
       edit6.SetFocus;
            end else begin
 form12.schitau_dalshe;
 form12.label20.Caption:=floattostr(10.5);
 form12.Label26.Caption:=floattostr(form8.t4);
 form12.Label27.Caption:=floattostr(form8.t5);
(*)  form12.Edit1.SetFocus;
 form11.Close;
 form12.show;
            end;
except
  (**)     showmessage("Здесь должно быть число");
       edit1.Text:="";
       edit2.Text:="";
       edit9.Text:="";
       edit10.Text:="";
       edit1.SetFocus;
end;
end;

---

← →
Yanis ©   (2004-06-03 00:21) [1]

Вопрос не ясен.

---

← →
lyeh ©   (2004-06-03 00:25) [2]

Перескакивает потому, что нельзя установить фокус на контрол скрытой формы. Вместо

form12.Edit1.SetFocus;
form11.Close;
form12.show;


напиши так:


form11.Close;
form12.show;
form12.Edit1.SetFocus;


---

← →
lelik   (2004-06-03 00:25) [3]

фишка вот в чем: если пстрочно компилить то со строки (*) компилятор прыгает сразу на (**), то бишь пропускает две строки
после этого showmessage начинает ругаться и как видно по коду все поля эдитов очищаются. как сделать так чтобы он не пропускал две строки, которые раньше почемуто он не пропускал

---

← →
sniknik ©   (2004-06-03 00:26) [4]

включи показ ошибок в IDE если не видиш, form12.Edit1.SetFocus; не может делатся если компонент невидимый или на неактивной форме (а активная так понимаю та на которой кнопку нажали > procedure TForm11.Button2Click(Sender: TObject);), правильно глюк идет на эксепт.

---

← →
evvcom ©   (2004-06-03 00:28) [5]

А еще лучше

...
if form12.Edit1.CanFocus then
 form12.Edit1.SetFocus;


---

← →
lyeh ©   (2004-06-03 00:29) [6]

Я ведь написал, читай [2]

---

← →
evvcom ©   (2004-06-03 00:35) [7]

Кстати, а нужен ли этот SetFocus? Какова цель? А то может устроит

Form12.ActiveControl := Edit1;


---

← →
lyeh ©   (2004-06-03 00:58) [8]

ActiveControl, указанный в параметрах формы, будет активизирован только при создании формы. При последующих Show будет активен тот контрол, на котором был фокус при закрытии формы

---

← →
evvcom ©   (2004-06-03 01:17) [9]

Use ActiveControl to get or set the control that has focus on the form.
If the form does not have focus, ActiveControl is the control on the form that will receive focus when the form receives focus.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.201 c