ferj

Olá pessoal, meu problema é o seguinte: No programa que estou criando, há dois forms... No primeiro form, tem o componente TClientSocket. Queria chamar o evento "OnClientRead" desse componente no segundo form, porém não sei como fazer isso. Já coloquei o "uses form1" no segundo form, mas não estou conseguindo chamar o evento OnClientRead desse primeiro form. Alguém pode me ajudar? Valeu! Fernando Magalhães

muito obrigado! deu certo aqui! v@leu mesmo! Fernando Magalhães

Olá pessoal... Criei esse tópico para perguntar uma coisa: Uso o Delphi 7 e percebi que os componentes TClientSocket e TServerSocket para manipulação do protocolo TCP/IP não estão dosponíveis mais nessa versão do Delphi. Percebi, que agora, existem dois componentes na palheta: Indy Clients e Indy Servers que parecem fazer a mesma coisa(IdTCPClient e IdTCPServer), porém, toda vez que tento usá-los, recebo mensagens de erro. Como faço para instalar o antigo TClientSocket e TServerSocket no Delphi 7 ? Obrigado! Fernando Magalhães

pode deixar, já consegui... amanha eu posto o código fonte aqui no fórum... v@leu a todos que ajudaram!

dei uma lida e consegui! Estava usando o DBE ao invés do ADO! Olha só, como fazer tipo um randomize em Delphi para sortear algo no banco de dados? Por exemplo, um banco de dados com perguntas e respostas tipo show do milhão, cada uma com seu código. Como fazer o programa gerar um código aleatório e sortear uma pergunta do banco de dados? Tem que usar SQL? Alguém sabe?

Ta, ate ai, ok... Mas, tem que fazer mais o q?

Olá pessoal! Estou com um tremendo problema para conectar banco de dados Access. Já li alguns tutoriais no www.delphi.eti.br mas não adiantou muito... É o seguinte, sempre quando tento conectar um banco de dados access, ele ou envia a seguinte mensagem de erro: "Can't open database. It may not be a database that your application recognizes or the file may be corrupted" ou as vezes, me pede uma identificação(login e senha) e não sai disso. Alguém ai pode me ajudar?! Valeu! Fernando Magalhães

pronto, já enviei o e-mail. Qualquer coisa, vou deixar o código fonte abaixo, valeu? ------------------------------------------------------------------------------------ unit Countdown; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; Label2: TLabel; Label4: TLabel; procedure Timer1Timer(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; numero:integer; { Declara uma variável número } implementation {$R *.dfm} procedure TForm1.FormActivate(Sender: TObject); begin numero := 30; { Quando o form é ativado, essa variável recebe 30 } end; procedure TForm1.Timer1Timer(Sender: TObject); { Timer com interval em 1000 ou seja, um segundo } begin numero := numero - 1; label1.caption := inttostr(numero); if (label1.caption = '0') then timer1.enabled := false; end; end.

fiz um programa bem simples aqui que faz isso... me passa seu e-mail que eu te envio, v@leu?

Poxa, coloquei o arquivo em 3 servidores diferentes, mas não consegui baixar em nenhum deles... Faz o seguinte, deixa seu e-mail que eu te passo, v@leu? Abraços. Fernando Magalhães

Testei os links acima, mas aqui não funcionaram... Tenta esse: Esse deve funcionar... Sabe como é, esses servidores gratuitos... http://mv.ft.sites.uol.com.br/MDI.zip Qualquer coisa, poste uma mensagem ou me envie um e-mail. Meu endereço de e-mail está no programa. V@leu! Fernando Magalhães

Desculpe, o link que coloquei no post anterior não está funcionando... Colocarei outro embaixo que esteja para que você possa baixar o programa: Baixe-o em: www.makergames.psend.com\MDI.zip Se tb não funcionar, deixe seu e-mail que eu o envio por e-mail. Valeu! Fernando Magalhães

Clique aqui para baixar o programinha tipo dicionário e o código fonte. Nesse programinha, tem o form principal onde estão listadas as palavras(que é o MDI principal) e o form 2 que é aberto para dar as definições das palavras. Note que no form 2, existem duas labels em branco(uma para o título e a outra para a definição da palavra escolhida no form 1). Se não entender alguma coisa, é só postar... v@leu. Fernando Magalhães

Calma ae... To criando um programinha aqui como exemplo... já te mando ele...

Pode deixar, já descobri: Colocando um evento: OnCloseQuery no Form1, ficaria: procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose:=False; {Isso impede o programa de ser fechado} end;