Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



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