Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.02.19;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.046 c
15-1138632640
Arazel
2006-01-30 17:50
2006.02.19
Где можно скачать Примеры базы данных на DELPHI


2-1138877410
Паша_
2006-02-02 13:50
2006.02.19
Как узнать какие threads запущены?


15-1138776748
Ega23
2006-02-01 09:52
2006.02.19
С Днём рождения! 1 февраля


6-1131793200
Илья Бобров
2005-11-12 14:00
2006.02.19
Indy FTP


15-1138174148
Гарри Поттер
2006-01-25 10:29
2006.02.19
Оцените креатив