F�rum Cria��o de um clok #1701

08/01/2009

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

Terumi Sato

Curtir t�pico

+ 0

Responder

Posts

08/01/2009

Wesley Yamazack

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

Responder

Gostei + 0

08/01/2009

Terumi Sato

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

Responder

Gostei + 0

08/01/2009

Wesley Yamazack

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

Responder

Gostei + 0

08/01/2009

Wesley Yamazack

Terumi,

Desconsidere o post anterior , o exmplo correr tem as aspas

caption:= FormatDateTime(hh:mm:ss, now);

Att,
Wesley Yamazack

Responder

Gostei + 0

08/01/2009

Wesley Yamazack

Terumi ,

Boa noite ficou claro a explica��o.

Podemos fechar o chamado ?

Att,

Wesley Yamazack

Responder

Gostei + 0

11/01/2009

Terumi Sato

Ol� Wesley, Ficou claro, sim, por�m, n�o sei onde encontrar o aplicativo Image Editor... pode me ajudar? Agardo contato.

Responder

Gostei + 0

11/01/2009

Wesley Yamazack

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

Responder

Gostei + 0

11/01/2009

Terumi Sato

Perfeito! Obrigada por sua juda, Wesley. Att.

Responder

Gostei + 0

11/01/2009

Wesley Yamazack

Teromi estamos fechando o chamado.
Abra�os

Att,
Wesley Yamazack

Responder

Gostei + 0