Boa noite!
Seu código já melhorou um pouquinho mas ainda tem dois "pecados mortais":
1) Você não pode e nem deve usar a mesma variável que vai armazenar o número
sorteado para controlar as repetições (sorteios) do seu programa. Uma coisa é
uma coisa e outra coisa é outra coisa. Do jeito que est
Senhores,
Estou fazendo um sistema utilizando TDI (Tabbed Document Interface),
porém ao abrir a segunda aba do mesmo formulário o grid não aparece...
Alguém teria uma idéia do que poderia ser???,
Estou usando o exemplo do endereço:
http://www.devmedia.com.br/clubedelphi/downloads/Ed_74.htm
Muit
Outra coisa...
Ficaria assim:
procedure TfmMain.RzBitBtn1Click(Sender: TObject);
var
msg : String;
begin
msg := 'Coloque aqui sua mensagem'+#10+#13+'Segunda linha da mensagem';
Case application.MessageBox(Pchar(msg),'Atenção!!!',
mb_yesnocancel+mb_defbutton1+mb_iconwarning) of
idYes
Colegas,
Permitam dar um pequeno pitaco!
Se a sua aplicação não for CLX, nem for para ser usado o idioma inglês,
por que não usa a Application.Messagebox ?
Tem as opções. Ok, Yes/No, YesNoCancel, e os botões ficam em porquguês,
mesmo se o seu Delphi não estiver traduzido...
tem de usar a ShellA
bom .. como vc nunca usou,
http://www.forum-invasao.com.br/novo/viewtopic.php?f=140&t=8530307&start=0&st=0&sk=t&sd=a
Leia o link antes,, que ensina a implementar uma trhread e poste suas
dúvidas.
Mas sobre *para que* vc quer utilizar a trhread, eu não consegui compreender
direito
2008/11/8 Onjah
Pessoal,
Tô com outro projeto agora, estou precisando fazer um controle de tempo
com Thread, nunca usei isso :)
Seguinte, tenho quatro materiais de produção:
- Barro;
- Cimento;
- Areia;
- Pedra.
Vai ser baseado em tantos por hora, 10 por hora, 22 por hora, 100 por
hora, etc...
Primeiro, com
Precisa disso tudo não, faz assim ow:
case MessageDlg('Do you want to delete file:' + crlf +
AFolder + '\' + ASearchRec.Name + crlf +
DateTimeToStr(FileDateToDateTime(ASearchRec.Time)),
mtConfirmati
Ricardo,
Deixa-me ver se entendi !!!
Retirei o memo e to usando um listbox para listar os números
sorteados e mudei a procedure:
procedur TForm1.Button1Click(Sender :TObjrct);
Var
sena : Integer;
Begin
ListBox1.Items.Clear;
Randomize;
sena := Random(100);
for sena <= 15 do
ListBo
Tive problemas com o MessageDlg. Simplesmente ele nunca entrava no
Yes. Isso pra mim não faz sentido. Como se fosse um erro no Delphi.
Testei vários exemplos da internet e até exemplos meus que funcionam
antes e nunca passava pelo Yes pegando mrYes.
Para resolver isso fiz uma abordagem da seguintes
OK, deu pra entender..
Mas agora ficou melhor ainda...
Fui na outra empresa que trabalho levei os fontes no pendrive e compilei..
e BINGO...
o problema sumiu.. k vai entender.
Com o D6 da o problema que não existia, agora com o D7 ta normal...
[]s
Luiz Escobar
Não é por nada não mas seu exercício está todo errado. Como o exercício deve
ser feito por vc vou tentar apenas indicar onde ocorreram os erros, cabendo a
vc implementar sua solução.
1) Em momento nenhum você instrui o Delphi o intervalo de números (1 e 100) que
vai ser usado para o sorteio dos
2008/11/8 Luiz Escobar <[EMAIL PROTECTED]>:
> Certo até ai eu sei, mas porque cargas dágua, funcionava antes e parou agora
> (não tem item vazio, quando chega nesta linha...) e com o debug incluido na
> aplicação ele funciona normalmente, basta eu incluir o debug e pronto ta
> tudo certo... sem ele
Tentei do meu próprio micro assim: 192.168.1.102/scripts/MeuIntra.dll.
Aí deu o erro: "My IntraWeb application error - To use IntraWeb evaluation
mode, 127.0.0.1 must be used as the IP in the URL - The IP you used was
192.168.1.102".
DA outra máquina não acessa. Liberei a porta 80, mas não adiant
Boa,
Estou com exercício que deve gerar 15 Nº aleatórios entre 01 e 100 e
mostrar o resultado num memo ou listbox, eu fiz usando um randomize e
um repeat mas está dando erro:
código da unit:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Form
Certo até ai eu sei, mas porque cargas dágua, funcionava antes e parou agora
(não tem item vazio, quando chega nesta linha...) e com o debug incluido na
aplicação ele funciona normalmente, basta eu incluir o debug e pronto ta
tudo certo... sem ele da o erro e antes de mudar o icone da aplicação
Olá,
Alguém sabe onde encontrar o FreeReport para Delphi 2009?
estou tendo problemas ao instalar a versão que tenho(D2006).
aparece alguns erros do tipo
Incompatible types: 'TfrBookmark' and 'TBytes'.
grato
> No micro onde estou programando digito: localhost/scripts/MeuIntra.dll e
> funciona legal.
> No outro micro da rede local devo digitar assim:
> 192.168.1.102/scripts/MeuIntra.dl, certo? Fiz isso e não abre.
Vc precisa configurar um diretorio virtual no PC servidor e acessá-lo usando o
direto
Libera a porta 80 no firewall do pc onde ta instalado o IIS.
2008/11/7 valdir <[EMAIL PROTECTED]>
> No micro onde estou programando digito: localhost/scripts/MeuIntra.dll e
> funciona legal.
> No outro micro da rede local devo digitar assim:
> 192.168.1.102/scripts/MeuIntra.dl, certo? Fiz isso
18 matches
Mail list logo