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

Вниз

Формы   Найти похожие ветки 

 
TimScorp ©   (2006-01-31 17:10) [0]

Доброго времени суток!

Имеем две формы Form1 и Form2. Form2 вызывается из Form1. На форме Form2 имеется 5 полей ввода (TEdit). При закрытии формы Form2 и повторном ее вызове курсор остается на том поле TEdit куда его переместили в предыдущий раз. Как сделать чтобы при каждом открытии формы Form2 курсор был в поле ввода TEdit1???

С уважением TimScorp.


 
Johnmen ©   (2006-01-31 17:12) [1]

TEdit1.SetFocus


 
Gero ©   (2006-01-31 17:13) [2]

Edit1.SetFocus

Где это писать, зависит от того, что значит
> повторном ее вызове


 
Desdechado ©   (2006-01-31 17:31) [3]

> При закрытии формы Form2
явно делается Hide, а не Close с уничтожением


 
Johnmen ©   (2006-01-31 17:33) [4]

Он не уничтожает, судя по сабжу. А жаль...:)


 
TimScorp ©   (2006-02-01 05:51) [5]

форму закрываю при помоще Close

так еще и всё что написано было в полях TEdit почемуто сохраняется.

С уважением TimScorp.


 
Gydvin ©   (2006-02-01 09:56) [6]

procedure TForm2.FormShow(Sender: TObject);
begin
Edit1.clear;
Edit2.clear;
Edit3.clear;
Edit4.clear;
Edit5.clear;
edit1.setfocus;
end;


 
Desdechado ©   (2006-02-01 14:01) [7]

> форму закрываю при помоще Close
по умолчанию Close делает Hide
а вот если обработать FormClose (Action:=caFree), то форма уничтожится
нотогда ее придется создавать заново через Create


 
TimScorp ©   (2006-02-01 20:33) [8]

Понял.

Всем спасибо.

С уважением TimScorp.



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

Форум: "Начинающим";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.04 c
15-1138273868
Ega23
2006-01-26 14:11
2006.02.19
Коллеги, есть концептуальный вопрос!


3-1135158279
yk
2005-12-21 12:44
2006.02.19
Проблемы с подключением udf


11-1112893795
Димитрий
2005-04-07 21:09
2006.02.19
Ошибка компиляции модуля kol.pas


6-1131526303
Ezorcist
2005-11-09 11:51
2006.02.19
Обработчики событий у компонента TServerSocket


3-1135456112
Fed
2005-12-24 23:28
2006.02.19
Вычисляемое поле





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский