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

Вниз

Как вернуть..   Найти похожие ветки 

 
3S   (2006-08-03 14:08) [0]

Как вернуть фокус Edit-у если одна форма закрывается, а другая активируется.... SetFocus не помогает.... Edit расположен на той форме которая активируется...


 
alles ©   (2006-08-03 14:10) [1]

OnActivate
SetFocus


 
3S   (2006-08-03 14:19) [2]

Бробовал, не помогает...


 
3S   (2006-08-03 14:22) [3]

Бробовал, не помогает...


 
3S   (2006-08-03 14:28) [4]

Бробовал, не помогает...


 
DeadMeat ©   (2006-08-03 14:34) [5]

А четвертый раз?


 
3S   (2006-08-03 14:45) [6]

Случайно...
Смысл процедуры SetFocus???

В событии ОnActive ставлю Edit1.SetFocus , курсор не находится в поле ввода Edit-а, почему?


 
Сергей М. ©   (2006-08-03 14:48) [7]

А какой контрол при этом фактически имеет фокус ?


 
alles ©   (2006-08-03 14:50) [8]

ПРОБОВАЛ ТАК И РАБОТАЕТ
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.show;
end;

procedure TForm2.FormActivate(Sender: TObject);
begin
EDIT2.SetFocus;
end;


 
3S   (2006-08-03 14:54) [9]

edit находится на form1
затем делается form2.showmodal;
потом form2.close;.
Так вот нужно чтоб фокус оказывался на form1.edit1

procedure TForm1.FormActivate(Sender: TObject);
begin
EDIT1.SetFocus;
end;-Не помогает!!


 
Сергей М. ©   (2006-08-03 14:59) [10]

А ты уверен, что событие FormActivate действительно происходит при этом ?


 
3S   (2006-08-03 15:06) [11]

действительно FormActivate не происходит.
А почему это может быть?


 
КаПиБаРа ©   (2006-08-03 15:06) [12]

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.ShowModal;
 Edit1.SetFocus;
end;


 
3S   (2006-08-03 15:11) [13]

Спасибо, теперь получилось!!!



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

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

Наверх




Память: 0.49 MB
Время: 0.041 c
2-1155028521
Delphi basic
2006-08-08 13:15
2006.08.27
Отбор по дате в Access


15-1154071925
umbra
2006-07-28 11:32
2006.08.27
Литература/ссылки по проектированию баз данных


15-1153485865
McSimm
2006-07-21 16:44
2006.08.27
Продолжение ветки "Для любителей коммунизъъма (TUser)"


2-1154603864
Max.66RUS
2006-08-03 15:17
2006.08.27
Как убить процесс, зная его имя...


15-1154000038
Иксик
2006-07-27 15:33
2006.08.27
Поздравьте меня!