Цитата:
|
Сообщение от th_bav
Сделал, возможно немного не то но суть будет ясна
Ставьте в свойстве таймера нужное время...
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
i:=0;
while i<100 do
begin
Edit1.Text:=Memo1.Lines[i];
i:=i+1;
end;
end;
end.
А зачем чтобы нажималась определенная кнопка??? Может стоит поставить еще один таймер и пусть просто выполняется процедура этой кнопки через определенное время???
АААААА не то сделал, ща переделаю..... |
да уж что то не то)он просто едит чисти и все через некоторое время(