Ошибка "Cannot focus a disabled or invisible window", проблема с SetFocus

@rolandas · Регистрация: 20.04.2011

Author24 — интернет-сервис помощи студентам

выбрасывает ошибку « Cannot focus a disabled or invisible window »
после только после закрывания окна ошибки ставиться правильно в Edit1
Embarcadero.

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.visible := True;
Edit1.Enabled := True;
//Edit1.SetFocus;
Edit1.AutoSelect := False;
end;

@krapotkin · 09.04.2019, 00:59

FormCreate - это форма создана, но окна на экране нет
поэтому странно переводить фокус на него

зато у формы есть свойство ActiveControl

@rolandas · 10.04.2019, 19:26 **[ТС]**

и как мне сразу после запуска программы автоматически запихать курсор в Edit1 ??

@mac1eod · 10.04.2019, 20:08

rolandas, у формы есть свойство ActiveControl

@Ivandur · 12.04.2019, 18:22

Событие onShow.

@zh_ka · 12.04.2019, 19:39

Delphi

procedure TForm1.OnShow(Sender: TObject);
begin 
 
   Edit1.visible := True;
   Edit1.Enabled := True;
   Edit1.SetFocus;
 
end;

@D1973 · 13.04.2019, 06:03

Ivandur, zh_ka, да зачем??? Ответ ведь уже был дан! Если кровь из носу надо, чтобы при старте приложения фокус находился именно в Эдит1 - все, что надо для этого:

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
  ActiveControl := Edit1;
end;

Или еще проще, вообще без кода: в режиме проектирования формы из главного меню Edit выбрать пункт меню TabOrder и поставить требуемый компонент на первое место...

@krapotkin 5838 / 4570 / 1442 Регистрация: 14.04.2014 Сообщений: 20,304 Записей в блоге: 20
	09.04.2019, 00:59	2
	FormCreate - это форма создана, но окна на экране нет поэтому странно переводить фокус на него зато у формы есть свойство ActiveControl 0

@rolandas 23 / 12 / 2 Регистрация: 20.04.2011 Сообщений: 382
	10.04.2019, 19:26 [ТС]	3
	и как мне сразу после запуска программы автоматически запихать курсор в Edit1 ?? 0

@mac1eod 231 / 163 / 54 Регистрация: 26.10.2014 Сообщений: 928
	10.04.2019, 20:08	4
	rolandas, у формы есть свойство ActiveControl 0

@Ivandur 692 / 5560 / 265 Регистрация: 11.08.2016 Сообщений: 3,456
	12.04.2019, 18:22	5
	Событие onShow. 0

	13.04.2019, 06:03