|
Registriert seit: 31. Jul 2003
Ort: Dresden
1.386 Beiträge
Delphi 7 Architect
|
Re: Familienduell - Leinwandausgabe
14. Jul 2004, 17:38
Delphi-Quellcode:
procedure ???(lbl : TLabel; const sText : String);
var i : Integer;
begin
for i := 1 to Length(sText) do
begin
lbl.Caption := Copy(sText, 1, i);
Application.ProcessMessages;
Sleep(200);
end;
end;
Nicht getestet, aus dem Kopf heraus geschreiben.
- ciao neo -
Es gibt niemals dumme Fragen, sondern nur dumme Antworten!
|