Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

Edit   Найти похожие ветки 

 
Sergey+   (2002-10-11 06:02) [0]

Здравствуйте!
Как програмно поставить курсор в Edit
procedure TForm1.FormCreate(Sender: TObject);
begin

Edit1. ( А чо дальше писать )?
end;
Подскажите пожалуйсто


 
Rouse_   (2002-10-11 06:11) [1]

Edit1.SetFocus ;

Желаю успехов


 
Sergey+   (2002-10-11 07:38) [2]

> Rouse_
OK! Спасибо,щас попробую.


 
Sergey+   (2002-10-11 07:52) [3]

В проекте несколько Edit-ов, по кнопочке открываеся вторая
форма а там еще два Edit-а. Так вот нужно,чтоб курсор стоял
на втором Edit-е.
Я попробовал щас, пишет при компиляции-ошыбка.
А если все это делать на основно форме то все получается.
Но как сделать,чтоб курсор ставился на Edit2 в Form2 ?

Вот,что я делал:

procedure TForm1.FormActivate(Sender: TObject);
begin
Form2.Edit2.SetFocus;
end;


 
gek   (2002-10-11 07:55) [4]

попробуй

procedure TForm2.FormShow(Sender: TObject);
begin
Edit2.SetFocus;
end




 
Rouse_   (2002-10-11 08:04) [5]

Все верно, незльзя установить фокус на невидимый или отключенный элемент, измени этот код на

Form2.Show;
Form2.Edit2.SetFocus;


и не желательно ставить его в FormActivate так как если ты случайно закроешь второе окно, активным станет первое, выполнится этот код и опять произойдет ошибка

Желаю успехов


 
Sergey+   (2002-10-11 08:08) [6]

> Rouse_
> gek

Ok! Спасибо Александр и Геннадий,
щас попробую.


 
Rouse_   (2002-10-11 08:08) [7]

Странно, а что это я в прошлый раз сообщения gek © (11.10.02 07:55) не видел? Чето глюки какието :(


 
Sergey+   (2002-10-11 08:13) [8]

Ok!
Все работает !



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

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

Наверх





Память: 0.56 MB
Время: 0.041 c
1-68746
NN_Nikita
2002-10-11 13:05
2002.10.21
вызов CoInitialize


1-68740
Pavel_
2002-10-09 14:54
2002.10.21
Обработка нажатия клавиатуры


3-68639
АлексейЦ
2002-09-30 11:20
2002.10.21
Помогите разобраться!!!!


14-68986
kofman
2002-09-29 00:51
2002.10.21
Как


1-68744
RTZ
2002-10-11 13:21
2002.10.21
Help!





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский