plikts

OI!! Eu fiz uma calculadora simples assim: procedure TfrmCalc.btnIgualClick(Sender: TObject); var Valor1, Valor2: Real; begin Valor1:=StrToFloat(edtNum1.Text); Valor2:=StrToFloat(edtNum2.Text); edtNum3.Text:=FloatToStr(Valor1*Valor2); end; procedure TfrmCalc.btnLimparClick(Sender: TObject); begin edtNum1.Text:=''; edtNum2.Text:=''; edtNum3.Text:=''; edtNum1.SetFocus; end; procedure TfrmCalc.btnFecharClick(Sender: TObject); begin close; end; end. eu gostaria de saber como eu faço por exemplo para q em soment em um edit eu possa colocar o primeiro numero, depois clicar em um botão de operação, limpar, digitar outro numero no mesmo edit e depois clicar em "=" e aparecer no mesmo edit a resposta??? como a calculadora do Windows ou qualquer outra normal. Obrigado!

sim!! obrigado!

muito obrigado! Resolvido...

oi! Eu li no livro q tem propriedades q podem ser mudadas em tempo de execução, quais são? de quais componentes ( pelo menos alguns para ter uma idéia) como fazer??é usado para q?? obrigado!!!

sim...agora, para finalizar este post, olhe essa parte desse código: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Tecla:=(Key); if ((Tecla< '0') or (Tecla >'9')) and (Tecla <> ':') then begin Beep; Key:=chr(0); end; end; porque foi criado depois de Implementation a variável Tecla do tipo Char, sendo que Key é tmb do tipo Char, eu consegui usar só ela, fazendo assim: procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ((Key< '0') or (Key >'9')) and (Key <> ':') then begin Beep; Key:=chr(0); end; end; qual a diferença? obrigado!

oi!!! Essas coisas eu já sabia, é q eu não estou conseguindo me expressar, deixa eu tentar de novo: "Eu gostaria se possível uma explicação sobre ele, por exemplo, porque a variavel Ligado:Boolean armazena True ou False (em TForm1.RG1Click) se RG1.ItemIndex=1e depois é usado em "if (Edit1.Text <=TimeToStr(Time)) and (Ligado) then" o que é verificado, como e usado aki para poder dar Beep?? " Ligado é uma variavel né? Com o código acima satisfeito vai soar o alarme correto? mas ali esta "Edit1.Text <=TimeToStr(Time)) and (Ligado) then" mas LIgado pode ser true ou false, ele só deve disparar se for true correto???? mas como pe iformado, aonde nesta linha de código? só (Ligado) não tem como definir isso se é true ou false, correto?? é como você disse aki: "Lógica Booleana. Um AND entre dois valores lógicos só retornará um valor lógico verdadeiro se *ambos* os valores forem verdadeiros." o (Ligado) não é algo como (Ligado=True), ai sim se for true e mais (Edit1.Text <=TimeToStr(Time)) deveria soar, to viajando aki.... o lance do Timer q depois de um segundo ele é executado eu sei, mas eu queria q desde q iniciasse o programa, a hora já etivesse sendo exibida, mas rodando, pois se não tiver em Ttimer (OnTimer) ele não executa...como faço isso?? obrigado!

oi!!!! Eu tenho uma dpuvidas sobre esse código: procedure TForm1.FormCreate(Sender: TObject); begin RG1.ItemIndex:=0; LblData.Caption:=FormatDateTime('dddd,dd" de "mmmm" de "yyyy',Date); end; procedure TForm1.RG1Click(Sender: TObject); begin if RG1.ItemIndex=1 then Ligado:=True else Ligado:=False; end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Tecla:=(Key); if ((Tecla< '0') or (Tecla >'9')) and (Tecla <> ':') then begin Beep; Key:=chr(0); end; end; procedure TForm1.Timer1Timer(Sender: TObject); begin if (Edit1.Text <=TimeToStr(Time)) and (Ligado) then begin Beep; end; LblHoraSys.Caption:=TimeToStr(Time); end; end. Eu gostaria se possível uma explicação sobre ele, por exemplo, porque a variavel Ligado:Boolean armazena True ou False (em TForm1.RG1Click) se RG1.ItemIndex=1e depois é usado em "if (Edit1.Text <=TimeToStr(Time)) and (Ligado) then" o que é verificado, como e usado aki para poder dar Beep?? quando inicia o programa demora um segundo para começar a mostrar a hora, mas se eu aumento o INterval, ai o beep aumenta de velocidade, eu gostaria de saber como faço isso quando o form é criado?? eu já tentei como o form create mas a hora fica estática... o porque de "<>" em "(Tecla <> ':')" ? porque Key:=chr(0)?? e porque Tecla:=(Key) sendo q key é uma var??? obrigado!

desculpa mas não entendi muito bem... tem como dar um exemplo funcional??? não consegui fazer algo com isso.... obrigado!

desculpa mas não entendi muito bem, essa variável não é para armazenar dados?? obrigado!

Saquei.... agora outra pergunta aproveitando... qual o sentido de se colocar uma variável aki : TFrm.BtnIniciarClick(Var OI:Integer Sender:TObject) outro exemplo procedure DefaultHandler(var Message) Sei q existem variáveis a nível de projeto, de Unit e de Procedimento (são "destruídas" logo depois de seu uso).. mas e nesse caso serve para q?? obrigado!!!

valeu..agora tenho outra pergunta...no livro q eu tenho esta escrito isso: "No Code Explorer observamos o nome da procedure, identificando qual o objeto e o evento que dará início à execução do código, e onde está localizado este objeto.O parâmetro SENDER informa ao Delphi qual componente recebeu o evento que chamou a execução deste procedimento" TFrm.BtnIniciarClick(Sender:TObject) eu não entendi a parte q diz: "O parâmetro SENDER informa ao Delphi qual componente recebeu o evento que chamou a execução deste procedimento" preciso de ajuda!! obrigado!

oi!!! Eu tenho uma dúvida (entre as nilhares, ), um procedimento é considerado aki: ... type TForm1 = class(TForm) Edt1: TEdit; procedure BtnFecharClick(Sender: TObject); procedure BtnLimparClick(Sender: TObject); ou aki: procedure TForm1.BtnAdiClick(Sender: TObject); begin Valor1:=StrToFloat(Edt1.Text); Valor2:=StrToFloat(Edt2.Text); Edt3.Text:=FloatToStr(Valor1+Valor2); Storage:=StrToFloat(Edt3.Text); end; ou este últimko seria a implementação do código no procedimento?? obrigado!

oi!! SObre a variável eu até q entendi isso, mas eu queria o saber como, quando usar ela??? E quanto sobre a hora do sistema é armazenado em uma variável a hora quando inicia o programar, e depois é subtraida a hora em Now... Label1.Caption := FormatDateTime('HH:MM:SS:ZZZ', TimeOld - NOW); eu queria saber o q acontece com isso?? sei q é zerado, mas como ele começa a contagem?? sendo q mesmo colocando invertido Now - TimeOld dá certo, não fica por exemplo hora negativa... obrigado....

então..quanto a TimeOld:TDateTime eu até q saquei um pouco, só q queria saber porque ser do tipo TDateTime essa variável, e como e quando usar ela?? e sobre o Application.ProcessMessages tmb saquei q é para processar mensagens do windows, mas qual??? eu tirei ele e funcionou... e o porque do cronômetro não parar, ficar em "segundo plano" ??? -Macks- você tem MSN??? seria legal, ai se der um poderia ajudar o outro... o meu fabiorubim@hotmail.com obrigado!!!!

algumas dicas interessantes... http://skyscraper.fortunecity.com/proxy/645/dicasd01.html t+

consegu pausar..era só colocar o Timer1.Enable:=False, mas..... nesse meu cronômetro (peguei na web) : .... private TimeOld:TDateTime; { Private declarations } public { Public declarations } end; ... procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := FormatDateTime('HH:MM:SS:ZZZ', TimeOld - NOW); Application.ProcessMessages; end; procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption := '00:00:00:000'; TimeOld := Now; end; procedure TForm1.BtnAtivDesClick(Sender: TObject); begin with TButton(Sender) do begin case TButton(Sender).Tag of 0:begin Timer1.Enabled := True; Caption := 'Desativar'; Tag := 1; end; 1:begin Timer1.Enabled := False; Caption := 'Ativar'; Tag := 0; end; end;//case end;//with end; procedure TForm1.Button1Click(Sender: TObject); begin TimeOld := Now; Label1.Caption := '00:00:00:000'; end; end. quando eu coloco para tivar novamente ele não continua daonde parou, ele não para, fica rodando como se fosse em "segundo plano" ai quando você clica em ativar ele já esta muito a frente de onde parou, onde esta o problema??? porque isso "TimeOld - NOW"?? o que é o NOW ?? o TDateTime de "TimeOld:TDateTime" faz o que??? o q isso faz "Application.ProcessMessages ;" ??? obrigado e desculpas por tantas dúvidas!!

nossa, só fui ver agora esse, desculpas ai... saquei...resolvido! obrigado!

valçew, aogora deu certo, eu já tinha entendido, mas não sei o q estava havendo aki no Delphi, eu axo q é porque eu devia ter dado um Build project ou All projects..sei lá... resolvido!

oi!! Por enquanto eu não vou fazer nada, é q eu estou fuçando( coisa q faço muito e tmb sou curioso)no Delphi... quanto a dar uma pausa na contagem eu queria mais ou menos como se fosse um cronômetro quando eu clicasse em um botão congelasse o valor e quando eu clicasse de novo voltasse a contar...poderia me dizer pelo menos como faço para congelar o número da contagem ( tanto faz estar em um Edit, em um Label...)... obrigado!

aweee, consegui, valeu, mas.... como eu sou curioso, tem outro exemplo?? tipow, fazer direto, mostrar os milisegundos do TTImer sendo exibidos diretamente em um Label?? e como eu faço para por exemplo quando a váriavel Tempo for igual a 200 e pausar o contador?? obrigado!

alguém saberia me explicar??? obrigado!!!

oi!!! Eu gostaria de saber como eu faço, por exemplo, para mostrar o tempo de um TTimer em um aLabel, Caption de um botão.... se por exemplo é 1000 milisegundos(1 segundo) como eu faço para q seja exibido no Label ou Caption as "contagem" do tempo, tipow, mostrar de 0 ( ou 1) até 1000? como um cronômetro?! obrigado

ops, tinha feito uma limpeza aki... era eu no post de cima...desculpas... t+

ninguém sabe mesmo??? valeu!!!

oi!! A função LENGTH eu consegui ver o que ela faz, mas a de TRIM, não, porque com ou sem ela, os espaço em branco são tirados, poderia dar um outro exemplo de como usá-la? obrigado!!