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

Вниз

Как передать фокус нужному элементу на 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;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.016 c
3-92378
malex_1
2002-10-04 17:30
2002.10.28
ADO-компоненты в DLL


3-92333
lak_b
2002-10-04 15:01
2002.10.28
Какая разница между Dataset.Refresh и последовательными (Close -


14-92650
Jumbot
2002-10-06 15:11
2002.10.28
Посоветуйте программу для очистки реестра


3-92343
dma
2002-10-06 19:11
2002.10.28
Rave отчеты


3-92323
wHammer
2002-10-04 14:41
2002.10.28
Переодический реквизит