[Arsi]

здраствуйте.
подскажите как должен выглядеть код.
задача такая.
вводим текст в tedit
жмём кнопку
таймер отсрочит выполнение на 5 сек
а дальше эмуляция нажатия клавиатуры по тексту tedit.
с задержкой 200мс на каждый символ
может есть где исходник?

Зарание спасибо.

[M.A.D.M.A.N.]

Код должен выглядеть красиво и удобочитаемо.
По твоему вопросу, см. справку по SendMessage

[Pyro]

http://delphisources.ru/forum/showpo...57&postcount=9
эмуляция по горячим клавишам

Код должен выглядеть красиво и удобочитаемо.

хороший код – как хороший анекдот – не нуждается в разъяснении (к ссылке выше отношения не имеет)

[AND_REY]

Вот ф-нц для эмуляции нажатия клавиш: keybd_event.

[Arsi]

и ещё 1 вопрос
почему в конце исполнения зависает программа?

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
text: string;
i2:integer;
begin
text:=edit1.Text;
i2:= Length(text) ;


While i2=i do
timer1.Interval:=0;

i:=i+1;
if text[i]='d' then
edit2.Text:=edit2.Text+'8'
else
edit2.Text:=edit2.Text+'4';
end;

Админ: Пользуемся тегами!

[M.A.D.M.A.N.]

Зацикливается потому что.

[Arsi]

почему?
если конец строки таймер должен отключится......