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

Вниз

Как передать фокус нужному элементу на 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]

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

---

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

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

Наверх

Память: 0.46 MB
Время: 0.007 c