Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: 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 вся ветка

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.045 c
14-1085537524
Думкин
2004-05-26 06:12
2004.06.13
С днем рождения! 25 мая


3-1085430270
Alexander Smith
2004-05-25 00:24
2004.06.13
проблема с UDF


1-1085298589
Lessa
2004-05-23 11:49
2004.06.13
окошко программы поверх других окон


1-1085991974
Ertong
2004-05-31 12:26
2004.06.13
Popup in Popup


3-1085332333
VflowerW
2004-05-23 21:12
2004.06.13
Rave Reports в приложениях