TEdit, TEdit, TEdit - Помощь студентам

Oleg Romanchuk · 18.08.2007, 11:14

Помогите плиз!!! На мой взгляд очень простая прога!!!
Один Edit и однa Кнопка!!! Надо чтобы когда программа загрузилась, фокус ввода был в Edit, но после ввода определенного текста фокус переходил на Кнопку!!! Очень сильно надо!

Carbon · 18.08.2007, 13:12

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.SetFocus
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Edit1.Text='Some Text' then Button1.SetFocus
end;

Oleg Romanchuk · 20.08.2007, 11:30

ОгРоМНое Сбасибо!!!

18.08.2007, 11:14	#1
Oleg Romanchuk Ghost Форумчанин Регистрация: 16.08.2007 Сообщений: 143	TEdit, TEdit, TEdit Помогите плиз!!! На мой взгляд очень простая прога!!! Один Edit и однa Кнопка!!! Надо чтобы когда программа загрузилась, фокус ввода был в Edit, но после ввода определенного текста фокус переходил на Кнопку!!! Очень сильно надо!

18.08.2007, 13:12	#2
Carbon JAVA BEAN Участник клуба Регистрация: 22.04.2007 Сообщений: 1,329	Код: `procedure TForm1.FormShow(Sender: TObject); begin Edit1.SetFocus end; procedure TForm1.Edit1Change(Sender: TObject); begin if Edit1.Text='Some Text' then Button1.SetFocus end;` http://i.imgur.com/oCA5O.png

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вопрос по TEdit	MasterofCDM	Общие вопросы Delphi	8	16.07.2008 20:51
TEdit	green	Компоненты Delphi	17	16.03.2008 07:13
TEdit	Xardas	Общие вопросы Delphi	2	17.01.2008 02:04
Автозаполнение в TEdit	neodream	Компоненты Delphi	9	15.08.2007 15:03

20.08.2007, 11:30	#3
Oleg Romanchuk Ghost Форумчанин Регистрация: 16.08.2007 Сообщений: 143	ОгРоМНое Сбасибо!!!