Как передать фокус нужному элементу на TabSheet?

← →
Behemoth (2002-10-16 09:24) [0]

Вопрос простой, но полезный.
На TabSheet есть Edit. Нужно при активации TabSheet передать фокус на Edit.

← →
Separator (2002-10-16 09:32) [1]

procedure TForm1.TabSheet2Show(Sender: TObject);
begin
Edit1.SetFocus
end;

← →
Behemoth (2002-10-16 09:36) [2]

Это я уже пробовал - не помогает. Говорит не могу передать фокус не видимому элементу!

← →
Behemoth (2002-10-16 09:50) [3]

НЕ ВЕРЮ, что ни у кого ни разу не вставала такая проблема!!!!

← →
Song (2002-10-16 09:51) [4]

Вкладка скрыта?

← →
Separator (2002-10-16 09:54) [5]

А ты внимательно посмотри, что я сделал, ты наверное просто передавал фокус на Edit когда вкладка была скрыта, а у меня передается фокус только тогда, когда ты открываешь нужну вкладку. У меня Edit1 лежит на TabSheet2.
Покажи как ты это делаешь.

← →
Behemoth (2002-10-16 09:55) [6]

to Song: Скрыта.... потом делаю PageControl1.ActivePage:=TabSheet1; и при этом хочу фокус на Edit.

← →
Separator (2002-10-16 09:59) [7]

ну и делай
PageControl1.ActivePage:=TabSheet1; Edit1.SetFocus
Все работае, только Edit1 должен лежать на TabSheet1

← →
Behemoth (2002-10-16 10:12) [8]

to Separator: Вопрос на засыпку - ты проверял????
У мя сообщение об ошибке: "Cannot focus a disabled or invisible Window"!!!!

← →
Separator (2002-10-16 10:15) [9]

проверял. Покажи свой код

← →
Separator (2002-10-16 10:18) [10]

У меня так
type TForm1 = class(TForm) PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Edit1: TEdit; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin PageControl1.ActivePage:= TabSheet1; Edit1.SetFocus end;

Edit1 лежит на TabSheet1, а Button1 на TabSheet2

← →
McSimm (2002-10-16 10:24) [11]

> Behemoth © (16.10.02 09:24)

Проблема в Enabled.
Проверь:

procedure TForm1.TabSheet1Show(Sender: TObject);
begin
TabSheet1.Enabled := true;
Edit1.SetFocus
end;

← →
Behemoth (2002-10-16 10:26) [12]

Дико прошу прощения!!! В новом проекте действительно работает. Спасибо!!!

Как передать фокус нужному элементу на TabSheet? Найти похожие ветки