Memo1 - Znak po znaku...

0

Mam napisany tekst w Memo( kilka linijek). Jak zrobić aby ten tekst w Memo pisał się literka po literce???? Kiedys gdzies to widzialem na tym forum. Ale to nie działało zbyt dobrze :) Z góry dzięki

0

odpowiedź opisowa: Canvas, sleep/timer, textout, myślenie :-)

Wystarczy trochę pomyśleć i będzie działać :-)

0

Jak znak po znaku??
Ma to przepisać?

0

Odpowiedzcie mu jakos normalnie bo jestem bardzo ciekawy jak to bedzie wygladalo to oczym mowi.

0

Program po naciśnięciu Button1 przepisuje zawartość Memo1 do Memo2 literka po literce w tempie takim jaki dasz interval w Timer1.

//w deklaracji klasy formy
private
Typing :Boolean;
i : integer;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); //uruchomienie pisania
begin
Memo2.Lines.Clear;
Typing:=True;
i:=1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Typing:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Typing and (i

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.