biakeffer

huahuaha.....conseguiiii / fiz assim: alterar.Enabled := true; excluir.Enabled := true; DataModule1.Tablerecado.Open; // registro anterior MSql :='select * from tbrecados where CODPRAQUEM =' + QuotedStr (edit1.Text); begin with Qrecado do begin Close; sql.clear; sql.Add(msql); open; end; end; DataModule1.Tablerecado.Next; editcodpara.text :=DataModule1.Tablerecado.FieldByName('CODPRAQUEM').AsString; IF EDIT1.TEXT = editcodpara.text then begin WITH frmrecado do begin edtcodigo.Text := DataModule1.Tablerecado.FieldByName('codigo').AsString; edtnome.Text:= DataModule1.Tablerecado.FieldByName('NOME').AsString; edttelefone.Text:= DataModule1.Tablerecado.FieldByName('TELEFONE').AsString; edtpara.Text := DataModule1.Tablerecado.FieldByName('PARAQUEM').AsString; EDTDATA.Text := DataModule1.Tablerecado.FieldByName('DATA').AsString; Memo1.Text := DataModule1.Tablerecado.FieldByName('OBS').AsString; EDTDATA.Text := DataModule1.Tablerecado.FieldByName('DATA').AsString; edthora.Text := DataModule1.Tablerecado.FieldByName('HORARECEBIMENTO').AsString; end; end; end; só que ai tem um probleminha...vamos supor que tenha um recado para o codigo 5, um recado só e na tabela esse recado seja o recado 54 por exemplo, a pessoa vai ter que ir clicando em proximo até chegar no recado dela, isso é mal, porque a pessoa pode clicar uma vez e pensar que não tem recado...:(

não deu certo..tirando o quotedstr da erro server version for the right syntax to use near " at line 1

olá de novo pessoal!!! Tipo...estou precisando codificar um botão anterior e proximo, porém eu tenho uma tabela de recados que armazena recados de varias pessoas, cadas pessoa tem um codigo, ai eu queria que quando eu clicasse no anterior ou proximo só mostrasse recados dessa determinada pessoa...tipo eu codifico o botão proximo assim: DataModule1.Tablerecado.Open; DataModule1.Tablerecado.Next; // registro proximo WITH frmrecado do begin edtcodigo.Text := DataModule1.Tablerecado.FieldByName('codigo').AsString; edtnome.Text:= DataModule1.Tablerecado.FieldByName('NOME').AsString; edttelefone.Text:= DataModule1.Tablerecado.FieldByName('TELEFONE').AsString; edtpara.Text := DataModule1.Tablerecado.FieldByName('PARAQUEM').AsString; EDTDATA.Text := DataModule1.Tablerecado.FieldByName('DATA').AsString; Memo1.Text := DataModule1.Tablerecado.FieldByName('OBS').AsString; EDTDATA.Text := DataModule1.Tablerecado.FieldByName('DATA').AsString; edthora.Text := DataModule1.Tablerecado.FieldByName('HORARECEBIMENTO').AsString; end; MSql :='select * from tbrecados where CODPRAQUEM =' + QuotedStr (edit1.Text); begin with Qrecado do begin Close; sql.clear; sql.Add(msql); open; end; end; porém dessa forma me mostra todos os registros da tabela :-/ como posso fazer pra mostrar somente os registros de quem tem o codigo 5 por exemplo

:rolleyes: Obrigaduuuuu....agora deu tudo certinho!!! abraços!

pois é...eu já olhei todas as propriedades...coloquei aqui ele todo no default tb e sem popup e mesmo assim quando eu clico pra minimizar a janela some o icone vai para a tray porem quando eu vou dar o duplo click pra poder ser reapresentada só de passar o mouse em cima do ícone ele some...não entendo o que pode estar acontecendo :( Fazendo os testes aqui em um momento deu esse erro: "raised exception class eexternalException with message 'Extenal exception C000001E'!" que tb não sei o que pode ser, mas ai eu tirei o componente e coloquei tudo de novo e parou de dar o erro, mas continua sumindo quando eu passo o mouse no icone na tray :(

tem que deixar active como true em que?no popupmenu? e o que tem que ser colocado no evento onClick?

não....tipo, quando eu coloco um icone na propriedade icon não aparece nada perto do relogio ai eu experimentei tirar o icone de la ai aparece o icone perto do relogio, mas ai quando eu passo o mouse em cima dele ele desaparece

oieee....agora que consegui instalar o componente systray fiz isso: mas não esta dando certo quando eu minimizo a janela some mas não aparece nenhum icone em baixo perto do relogio pra que eu possa clicar e colocar pra executa-lo novamente.

Brigadão mesmoooo..salvou minha vida..rs :rolleyes:

ufaaaa....em fim eu consegui instalar os componente \o/ agora sim to usando o componente TSTMSNPopup...realmente ficou bem mais bonitinho e mais facil...só uma coisa...tem como eu fazer a janelinha ficar aparecendo e só sumir quando clicar nela?ao invez de ficar aparecendo e sumindo toda hora?

pessoal muitoo obrigada pela ajuda...consegui resolver utilizando o timer...agora preciso fazer com que clicando no form abra o recado mas não estou conseguindo por que quando aparece o form da mensagem fica tudo desabilitado...tentei colocar no evento ondblclik pra chamar a tela com o recado...tipo: frmrecado.show; mas não deu certo e tipo quando eu clicar na caixa e ir para o recado teria que parar de ficar aparecendo a caixa com a mensagem

achei legal a sugestão do micheus e do jhonas, porém tem um probleminha...eu não sei como instalar componente no delphi 2005 :(

tipo não tinha pensado não...mas também não faço ideia de como programar o timer pra fazer isso...hehe

Oláaaaa....estou com uma duvida...tipo, estou fazendo um programa para anotações de recados e ai gostaria que toda vez que tivesse recado pra alguém subisse uma janelinha avisando que tem recado eu já consegui o codigo pra fazer a janelinha subir...ta fucionando direitinho, porém só aparece quando eu clico no botão, gostaria que aparecece automaticamente quando tivesse um recado. a janelinha subindo fiz assim: procedure Tfrmcarregar.Button1Click(Sender: TObject); var I: Integer; fAlertaMsn: TForm; BarraIniciar: HWND; {Barra Iniciar} tmAltura: Integer; tmRect: TRect; xTop : Integer; xIniTop : Integer; begin //localiza o Handle da janela iniciar BarraIniciar := FindWindow('Shell_TrayWnd', nil); //Pega o "retângulo" que envolve a barra e sua altura GetWindowRect(BarraIniciar, tmRect); tmAltura := tmRect.Bottom - tmRect.Top; fAlertaMsn := TForm3.Create(Self); with fAlertaMsn do begin Left := Screen.Width - ClientWidth; if tmRect.Top = -2 then tmAltura := 30; //Pega o top final xTop := Screen.Height - ClientHeight - tmAltura; //Pega o top inicial xIniTop := Screen.Height + ClientHeight + tmAltura; Top := xIniTop; for I := xIniTop downto xTop do begin Top := Top - 1; Show; Update; Application.ProcessMessages; Sleep(10); end; Sleep(3000); Close; FreeAndNil(fAlertaMsn); end; end; agora como faço pra ela aparecer automaticamente???tipo imagino que tenha que ter uma pesquisa e se tiver recado ela aparece e tal...mas não sei bem como vou fazer isso, onde vou colocar pra essa pesquisa ser feita, e como vou fazer pra ela ficar sendo executada sempre ou de tempo em tempo sei la..

desculpe não vai mais acontecer ah consegui....reinstalei o rave reports ai deu certo vlw...brigadão