Criação de um clok
Olá Guinther,
Estou fazendo o curso Delphi Fundamental Win 32, porém, durante o companhamento da video aula Introdução a criação de componentes - Parte II , tive alguns erros, que não sei identificá-los, uma vez que, me parece estar de acordo com a video aula.
Durante a execução, aparece eros em todos os FTimer ou a qualquer coisa ligado a ele.
Segue o código que fiz acompanhando sua aula, espero que me dê uma dica do que possa ser.
unit uClock;
interface
uses
SysUtils, Classes, Controls, StdCtrls, ExtCtrls; type
TClock = class(TLabel)
private
{ Private declarations }
FTimer: FTimer;
procedure dotimer(sender: tobject);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
end; procedure Register; implementation procedure Register;
begin
RegisterComponents(Terumi, [TClock]);
end; { TClock } constructor TClock.Create(AOwner: TComponent);
begin
inherited;
FTimer:= TTimer.create(self);
FTimer.interval:=1000;
FTimer.enabled:=true;
FTimer.OnTimer:= DoTimer;
end; destructor TClock.Destroy;
begin
FTimer.free;
inherited;
end; procedure TClock.dotimer(sender: TObject);
begin
caption:= FormatDateTimer(hh:nn:ss, now);
end; end. Aguardo contato
SysUtils, Classes, Controls, StdCtrls, ExtCtrls; type
TClock = class(TLabel)
private
{ Private declarations }
FTimer: FTimer;
procedure dotimer(sender: tobject);
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
end; procedure Register; implementation procedure Register;
begin
RegisterComponents(Terumi, [TClock]);
end; { TClock } constructor TClock.Create(AOwner: TComponent);
begin
inherited;
FTimer:= TTimer.create(self);
FTimer.interval:=1000;
FTimer.enabled:=true;
FTimer.OnTimer:= DoTimer;
end; destructor TClock.Destroy;
begin
FTimer.free;
inherited;
end; procedure TClock.dotimer(sender: TObject);
begin
caption:= FormatDateTimer(hh:nn:ss, now);
end; end. Aguardo contato
Terumi Sato
Curtidas 0
Respostas
Wesley Yamazack
08/01/2009
Bom dia, pelo que notei você fez o seguinte.
type
TClock = class(TLabel)
private
{ Private declarations }
FTimer: FTimer;
Não seria
type
TClock = class(TLabel)
private
{ Private declarations }
FTimer: TTimer;
O T no lugar o F , fazendo assim TTimer;
Att,
Wesley Yamazack
type
TClock = class(TLabel)
private
{ Private declarations }
FTimer: FTimer;
Não seria
type
TClock = class(TLabel)
private
{ Private declarations }
FTimer: TTimer;
O T no lugar o F , fazendo assim TTimer;
Att,
Wesley Yamazack
GOSTEI 0
Terumi Sato
08/01/2009
Olá,
Parte do problema foi resolvido, agora, preciso de ajuda em:
procedure TClock.dotimer(sender: TObject);
begin
caption:= FormatDateTimer(hh:nn:ss, now);
end; Está ocorrendo erro na parte em vermelho. Att. Terumi Sato
begin
caption:= FormatDateTimer(hh:nn:ss, now);
end; Está ocorrendo erro na parte em vermelho. Att. Terumi Sato
GOSTEI 0
Wesley Yamazack
08/01/2009
Que bom que o outro problema foi resolvido.
O proxímo esta a solução logo abaixo, so copiar e colar.
caption:= FormatDateTime(hh:mm:ss, now);
Att,
Wesley Yamazack
O proxímo esta a solução logo abaixo, so copiar e colar.
caption:= FormatDateTime(hh:mm:ss, now);
Att,
Wesley Yamazack
GOSTEI 0
Wesley Yamazack
08/01/2009
Terumi,
Desconsidere o post anterior , o exmplo correr tem as aspas
caption:= FormatDateTime(hh:mm:ss, now);
Att,
Wesley Yamazack
Desconsidere o post anterior , o exmplo correr tem as aspas
caption:= FormatDateTime(hh:mm:ss, now);
Att,
Wesley Yamazack
GOSTEI 0
Wesley Yamazack
08/01/2009
Terumi ,
Boa noite ficou claro a explicação.
Podemos fechar o chamado ?
Att,
Wesley Yamazack
Boa noite ficou claro a explicação.
Podemos fechar o chamado ?
Att,
Wesley Yamazack
GOSTEI 0
Terumi Sato
08/01/2009
Olá Wesley,
Ficou claro, sim, porém, não sei onde encontrar o aplicativo Image Editor... pode me ajudar?
Agardo contato.
GOSTEI 0
Wesley Yamazack
08/01/2009
Terumi,
Boa noite.. segue abaixo o link para voce baixar o imageedit, mas se voce estiver usando a versao do delphi7, é só ir na pasta bin de da instalação do delphi.
segue link
http://www.4shared.com/file/80141733/b3149f3c/ImageEdit.html
Boa noite.. segue abaixo o link para voce baixar o imageedit, mas se voce estiver usando a versao do delphi7, é só ir na pasta bin de da instalação do delphi.
segue link
http://www.4shared.com/file/80141733/b3149f3c/ImageEdit.html
GOSTEI 0
Terumi Sato
08/01/2009
Perfeito!
Obrigada por sua juda, Wesley.
Att.
GOSTEI 0
Wesley Yamazack
08/01/2009
Teromi estamos fechando o chamado.
Abraços
Att,
Wesley Yamazack
Abraços
Att,
Wesley Yamazack
GOSTEI 0