alebae 0 Denunciar post Postado Janeiro 22, 2006 Bom... Gostaria de saber como fazer um despertador... Ou seja, coloquei um Edit pro usuário colocar a hora que quer que desperte... Coloquei duas variaveis horaatual e despertahora que vão se "encontrar" num if, na qual, deverão ter uma posição de igualdade... Mas não sei como jogar conteúdos nas variáveis... Por exemplo a hora atual para a variavel horaatual, e a hora que o cliente digitou na var despertahora.... Compartilhar este post Link para o post Compartilhar em outros sites
bastard2003 4 Denunciar post Postado Janeiro 22, 2006 a hora atual tu pode seta na hora que cria o form e a hora de despertar no clic de um botão... ou ate mesmo na propriedade onChange do edit! Compartilhar este post Link para o post Compartilhar em outros sites
alebae 0 Denunciar post Postado Janeiro 23, 2006 Hum... Fiz assim ó... despertahora := Edit1.Text; horaatual := TimeToStr(now); If despertahora = horaatual then Label2.Caption:='Hora de Acordar!!!'; Tudo isso no clicar de um Button... Mas ele não funciona :( Compartilhar este post Link para o post Compartilhar em outros sites
marcio.theis 3 Denunciar post Postado Janeiro 23, 2006 Adicionei na tela dois Label um TEditMask, com o EditMask = '00:00:00;1;_' e um BitBtn, ficando assim: .PAS unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, Mask;type TForm1 = class(TForm) BitBtn1: TBitBtn; Timer1: TTimer; Label2: TLabel; Label1: TLabel; MaskEdit1: TMaskEdit; procedure BitBtn1Click(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } despertahora: String; public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);begindespertahora:=MaskEdit1.Text;end;procedure TForm1.Timer1Timer(Sender: TObject);beginIf despertahora = TimeToStr(now) then Label2.Caption:='Hora de Acordar!!!'end;end. .DPR object Form1: TForm1 Left = 189 Top = 106 Width = 214 Height = 186 Caption = 'Form1' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object Label2: TLabel Left = 72 Top = 40 Width = 32 Height = 13 Caption = 'Label2' end object Label1: TLabel Left = 48 Top = 76 Width = 26 Height = 13 Caption = 'Hora:' end object BitBtn1: TBitBtn Left = 72 Top = 104 Width = 75 Height = 25 Caption = 'BitBtn1' TabOrder = 0 OnClick = BitBtn1Click end object MaskEdit1: TMaskEdit Left = 80 Top = 72 Width = 65 Height = 21 EditMask = '00:00:00;1;_' MaxLength = 8 TabOrder = 1 Text = ' : : ' end object Timer1: TTimer OnTimer = Timer1Timer Left = 16 Top = 24 endend Compartilhar este post Link para o post Compartilhar em outros sites
alebae 0 Denunciar post Postado Janeiro 23, 2006 Valeu /]/]@t Funcionou certinho... Obrigado :D Compartilhar este post Link para o post Compartilhar em outros sites
