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! Спасибо Александр и Геннадий,
щас попробую.

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

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

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