Главная страница
    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.038 c
14-1085430095
Knight
2004-05-25 00:21
2004.06.13
Вот и заканчивается самое лучшее время года...


14-1085377649
Dmitriy O.
2004-05-24 09:47
2004.06.13
Посоветуйте где найти инфу по IB ?


3-1085419004
Duch
2004-05-24 21:16
2004.06.13
При запуске не находит базу данных


14-1085767755
SashaLebed
2004-05-28 22:09
2004.06.13
Спасибо 4 Семен Сорокин


1-1086214858
Win64
2004-06-03 02:20
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский