DevelStudio Текст таймер

Question

DevelStudio Текст таймер

Вячеслав Христюченко Знаток (387), на голосовании 1 год назад

Как сделать по таймеру чтоб в окне сам написался текст типо заходит чел в прогу а через 1 секунду появляется текст.

Answer 1

Для создания таймера в Devel Studio можно использовать компонент TTimer.

Вот пример кода, который показывает, как использовать TTimer для отображения текста в окне после заданного интервала времени:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := 'Hello, World!';
Timer1.Interval := 1000; // устанавливаем интервал в 1 секунду
Timer1.OnTimer := Timer1Timer; // назначаем обработчик события OnTimer
end;

procedure Timer1Timer(Sender: TObject); // обработчик события
begin
if Label1.Caption <> 'Hello, World!' then
Label1.Caption := Label1.Caption + '!'; // обновляем текст каждые 1000 мс
end;
end.

Answer 2

  
const delay = 1000; 
function displayText() { 
  const текст = "Ваш текст здесь"; 
  MessageBox(текст, "Заголовок окна", MB_OK); 
} 
 
setTimeout(displayText, delay);