Скачать: CL | DM;

Чё то таймер в компоненте глючит!!!!!!!!!А-а-а-а!   Найти похожие ветки 

← →
GameR ©   (2003-08-09 12:24) [0]

unit PCLabel2;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls,ShellApi,Graphics,forms,dialogs,ExtCtrls;


var Timer:TTimer;
type
TPCLabel = class(TLabel)
private
{ Private declarations }
fPCText:string;
fPCS:string;
FPCTime:INTEGER;
FPCbukva:Integer;
protected
{ Protected declarations }
procedure OnTimer(Sender:TObject);
public
{ Public declarations }
procedure PCGo;
published
{ Published declarations }
property PCtext:string read FPCtext write FPCtext;
constructor Create(AOwner:TComponent);
property PCTime:integer read FPCtime write FPCtime;

end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Win32", [TPCLabel]);
end;
constructor TPCLabel.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
Timer:=TTimer.Create(self);
timer.Enabled:=false;
Timer.OnTimer:=OnTimer;
Timer.Interval:=100;
FPCbukva:=0;
end;
procedure TPCLabel.OnTimer(Sender:TObject);
begin
Inc(FPCbukva);
FPCS:=FPCS+fPCText[FPCbukva];
Caption:=FPCS;
if fPCText[FPCbukva]="" then begin
FPCbukva:=0;
Timer.Enabled:=false;

end;
end;
procedure TPCLabel.PCGo;
begin
Timer.Enabled:=true;
end;

end.

---

← →
MBo ©   (2003-08-09 12:32) [1]

сделай таймер ПОЛЕМ компонента, а не переменной

---

← →
Palladin ©   (2003-08-09 15:40) [2]

жуть

---

← →
Vulko ©   (2003-08-09 17:36) [3]

> procedure TPCLabel.OnTimer(Sender:TObject);

Надо писать что-то типа
procedure TForm1.OnTimer(Sender:TObject);

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c