Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.58 MB
Время: 0.043 c
1-92554
LongIsland
2002-10-16 13:24
2002.10.28
Копирование данных из буфера в TStringGrid


3-92381
lightix
2002-10-08 10:36
2002.10.28
Подскажите, как заставить программно DBGRID завершить ввод?


3-92334
Natalie
2002-10-05 22:46
2002.10.28
не могу создать таблицу!!


7-92766
vvant
2002-08-23 16:49
2002.10.28
Как убрать приложение из списка по Ctrl+Alt+Del ?


4-92804
Velocity
2002-09-16 11:44
2002.10.28
Резиденты





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский