Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.06.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.042 c
3-1083995497
Крутыш
2004-05-08 09:51
2004.06.13
Кто пользуется компонентами SaVCL.


14-1085402763
sucer
2004-05-24 16:46
2004.06.13
Посмотрите что делает эта гадина INTEL


4-1083688325
AlexZ_CRC
2004-05-04 20:32
2004.06.13
Открыть <u> все </u> CDROM на компе


4-1083989471
-=DoN=-
2004-05-08 08:11
2004.06.13
Account information


14-1085737051
kd75
2004-05-28 13:37
2004.06.13
Пятничные проблемы





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский