DELPHI-Man32

B) OLHA cara! você PODE FAZER COM TABELAS DB SEM PROBLEMAS, MUITOS PROGRAMADORES FAZEM ISSO, MAS EXPLICA DIRETAMENTE O QUE você DESEJA FAZER PARA SEU IRMÃO, ENTÃO QUEM SABE PODEMOS MANDAR PRA você A ESTRUTURA DO PROG. E ATÉ ALGUMAS DICAS PRA você ENCREMENTAR SEU PROGRAMA. FALA AÊ. APROVEITE E AVALIE MEU DETECTOR DE MENTIRAS V1.0 você VAI GOSTAR Clique aqui para baixar só 150 KB B) DELPHI-Man32

baixe o detector de mentiras e envie para uma amigo, tenho certeza que ele vai gostar de testar. DETECTOR DE MENTIRAS V1.0 DELPHI-Man32 design-vagner@bol.com.br

As propriedades DataField e propriedade Datasource são alteradas no Object Inspector, quando você linka a tabela ao DataBase. tenta aê, quem sabe não é isso que você precisa.

Peguem o programinha no meu site é só cliquer no url abaixo http://www.delphiman32.kit.net/detector_de_mentiras.zip Só 150 Kb é diga no que podemos melhorar. DELPHI-Man32

ah kara fiz um exemplo esta pronto para usar é so baixar http://www.delphiman32.kit.net/login.zip 15kb basta abrir o arquivo .dpr e executar pronto e so testar agora DELPHI-Man32 dúvidas: design-vagner@bol.com.br

:huh: ALGUÉM TERIA CORAGEM DE TROCAR O DELPHI 3 OU 5 POR DELPHI 6 OU 7 TENHO AS DUAS VERSÕES MAS QUERIA CONHECER A ESTRUTURA DAS OUTRAS V. DO DELPHI. E TAMBEM QUE não CONHECE A V.3 DO DELPHI TAMBÉM PODERIA CONHECER SE ALGUÉM PODER FAZER ISSO MEU EMAIL ESTA AI AS MINHAS DUAS VERSÕES ESTÃO COMPLETAS, O 5 TEM O INTERBASE E O INSTALLSHIELD. design-vagner@bol.com.br DEDLPHI-Man32 :huh:

;) SE você QUISER MANDO ATE O PROGRAMA FUNCIONANDO como exemplo NANDO SEU E-MAIL PRA MIM ou post para design-vagner@bol.com.br valeu ;)

;) não PRECISA DE TANTA COISA ASSIM não PEGA A UNIT COMPLETA QUE COLOQUEI NO TÓPICO ACIMA DESTE cara. VAI VER É MUITO SIMPLES. ;)

:P MANDE SEU APLICATIVO PRA GALERA... AVALIAR. VALEU... DESDE QUE NÃO SEJA MUITO GRANDE.... :P

:huh: explique melhor. não entendi o q você quiz dizer. O Q você QUER SABER??????????????????? MESMO ! :huh:

B) espero ter ajudado manu. falowss. B)

:lol: Solução: Sim, é possível e é fácil. Siga os passos abaixo: - Crie um novo projeto; - Mude as seguintes propriedades do Form1: BorderStyle = bsNone, FormStyle = fsStayOnTop, - Coloque um Label; - Coloque um Timer; - Altere o evento OnTimer do Timer1 conforme abaixo: procedure TForm1.Timer1Timer(Sender: TObject); begin Label1.Caption := TimeToStr(Time); end; - Altere o evento OnCreate do Form1 conforme abaixo: procedure TForm1.FormCreate(Sender: TObject); begin Width := 80; Height := 40; Label1.Left := 10; Label1.Top := 10; end; - Vá na seção private do Form1 e declare a procedure abaixo: private procedure WMNCHitTest(var Msg: TMessage); message WM_NCHitTest; public { Public declarations } end; - Vá na seção implementation e escreva a procedure abaixo: implementation {$R *.DFM} procedure TForm1.WMNCHitTest(var Msg: TMessage); begin if GetAsyncKeyState(VK_LBUTTON) < 0 then Msg.Result := HTCAPTION else Msg.Result := HTCLIENT; end; - Execute e experimente arrastar form com o mouse. ------------------------------- PARA O TAMANHO AI VAI. unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private declarations } procedure WMGetMinMaxInfo(var MSG: TMessage); message WM_GetMinMaxInfo; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.WMGetMinMaxInfo(var MSG: TMessage); begin inherited; with PMinMaxInfo(MSG.lparam)^ do begin ptMinTRackSize.X := 300; ptMinTRackSize.Y := 150; ptMaxTRackSize.X := 350; ptMaxTRackSize.Y := 250; end; end; end. :lol: DELPHI-Man32

;) DEI UMA OLHADA NO SEU CODIGO, MAS ACHO QUE não POSSO DE AJUDAR, TEM UM AMIGO AI NO FORUM QUE TALVEZ POSSA. é O KEITAROSAN. PROCURA ELE AI. VALEU. DELPHI-MAN32 ;)

:o ESQUECE ISSO AMIGO. não É DESSA SEÇÃO. MERO INGANO. VALEU. ISTO E PRA GALERA DO FLASH. :o

B) É issso ae^ KmaraDA.... \''''''''''/ ------oOOO--( o o )--OOOo------- | '''' :-) Use o sinal de ":=" para atribuir valores, como na linha abaixo: K := 0; ou M := 10; Aqui o ":=" Define valores para: K é = 0 e M é = 10. Exemplo... var k:integer; //(declara a variável k). begin k := 0 // <------se liga nesta linha, veja que o valor de k é 0. if(se) k = 10 then(então) // <------Se liga nesta linha, compara o valor de k com 10. ShowMessage ('k é igual a 10); end; :-) O sinal de igual é usado para comparação como em comandos " If ", veja: If(se) k = 0 then(então) //Tradução dos comandos If e Then ShowMessage('O valor de k é 0'); -------| |-----| |------------ ---- ----- || || || || oooO Oooo EM BREVE ::::::::::::: http://www.delphiman32.kit.net Delphi's Questions Center

;) TALVEZ você QUEIRA O FORM CENTALIZADO TODA VEZ QUE você USAR O "RUN" ;)

:huh: COMO ASSIM, MALUCO! ESTÁTICO, EXPLICA MELHOR TALVEZ PODEMOS TE AJUDAR. :huh:

:huh: amigos será q

:unsure: Recentemente fiz uma aplicação simples para lembretes com um db paradox 7, mas quando finalizei meu exe e fiz o pct do setup, não rodou em outra máquina, porke não tinha o Gerenciador de banco de dados. o diretorio esta correto...mas sempre aparece um erro de DBEngine.. o que faça amigos...???????????? Delphi-Man32 :unsure: