Форум: "Основная";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];
ВнизПосимвольный вывод текста Найти похожие ветки
← →
Dest (2003-12-11 20:09) [0]Подскажите пожалуйста как вывести текст, например в Edit, посимвольно, т.е. сделать эффект ввода с клавиатуры.
Делал так:
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=1;
if edit2.text="123"then
begin
a:="12345" ;
Timer1Timer(i,a,sender);
timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(i:integer;a:openstring;Sender: TObject);
begin
edit1.text:=edit1.text+a[i];
i:=i+1;
end;
Но ничего не получается. При нажатии на кнопку выводится только первый элемент "a",т.е."1", и таймер не запускается. При еще одном нажатии выводится тоже самое.
← →
mrcat (2003-12-11 20:16) [1]Так ты кликни в Object Inspector"е два раза на OnTimer и в созданной процедуре пиши что душе угодно )
← →
kryworut (2003-12-11 20:24) [2]это работает
procedure TForm1.Button1Click(Sender: TObject);
Var
i : Integer;
q : LongInt;
begin
Edit1.Text:="";
For i:=1 To 255 do
begin
Edit1.Text:=Edit1.Text+"q";
q:=GetTickCount;
While GetTickCount<q+100 Do Application.ProcessMessages;
Edit1.Update;
end;
end;
← →
Тимохов (2003-12-11 20:30) [3]kryworut (11.12.03 20:24) [2]
Ты так делаешь обычно или это только предложние?
← →
jack128 (2003-12-11 20:32) [4]
> kryworut (11.12.03 20:24) [2]
edit1.Update зачем? Итак ведь Application.ProcessMessages есть?
← →
Dest (2003-12-11 22:15) [5]Наверное меня не доконца поняли. То, что предложил kriworut работает, но выводит только какую-то одну строку. А я пытаюсь сделать процедуру, которая выводит любую присланную ей строку.
Есть какие-нибудь мысли?
← →
Вася Пупкин (2003-12-12 01:31) [6]procedure TForm1.Timer1Timer( var i:integer;a:openstring;Sender: TObject);
← →
frost (2003-12-12 10:17) [7]А Sleep не подойдет?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.12.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c