Churc
-
Total de itens
1.198 -
Registro em
-
Última visita
Tudo que Churc postou
-
não seria isso tipo unit Unit1; interface uses Windows, SysUtils, Forms, Classes, Controls, StdCtrls; type TForm1 = class(TForm) Button3: TButton; ReadVoto: TEdit; procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ContAnabelle: Integer = 0; implementation {$R *.dfm} procedure TForm1.Button3Click(Sender: TObject); begin if (MessageBox(Handle, 'Confirma Voto para Lider de Sala da Turma 6ªA para Anabelle Benevides ', 'Pergunta', MB_YESNO or MB_ICONQUESTION) = idYes) then Begin ContAnabelle := ContAnabelle + 1; ReadVoto.Text := IntToStr(ContAnabelle); MessageBox(Handle, 'Parabéns, Voto Confirmado!', 'Informação', MB_OK or MB_ICONINFORMATION) ; end else MessageBox(Handle, 'Vote outra vez!', 'Informação', MB_OK or MB_ICONINFORMATION); end; end. que você quer?!? :rolleyes: abraços
-
hmmm eu não me recordo o porque deste erro tenta isso só pra testar var bla: Real; ai você armazena o valor do campo na variavel bla bla := ADOQuery1.FieldByName('VALOR').AsFloat; ai você tenta RVSystem1.BaseReport.PrintLeft('R$ ' + Formatfloat('###,###,##0.00', bla), CurCol); abraço
-
não sei te responder certo, não uso rave e não mexo com bd rsrs mas vo tenta ajudar o tipo deste campo é oque, monetário?! de qualquer forma, falando besteira ou não ai vai só pra você testar... essa máscara vai transformar números inteiros em monetários ou seja, 1 fica 1,00 e por ai vai... RVSystem1.BaseReport.PrintLeft('R$ ' + Formatfloat('###,###,##0.00', ADOQuery1.FieldByName('VALOR').AsFloat),CurCol); espero ter ajudado abraços
-
Provavelmente, as páginas do arquivo .chm estão se direcionando para sua máquina, nunca usei isso não mas deve ser isso, faça o seguinte. Na pasta onde tava as Htmls que você criou, renomeia ela ou copia pra outro lugar e abre na sua máquina novamente pra ver se não é isso. ps: nunca nem mexi com isso mas talvez seja isso, sendo assim, procura alguma forma de embutir as htmls no .chm
-
ah certo fera, seguinte fica no registro sim, em HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup quanto ao webBrownser.[algumaCoisa].html := '<html><head> deve até dar, mas não seria tão simples assim, teria que usar Ole eu vi num site uma vez, como criar uma imagem de um webbrowser, assim ficaria mais facil pra você eu acho se eu achar eu posto aqui * Achei! mas nem rola usar o negocio de criar imagem não sai por completo e ainda sai as barras de rolagem rrsrs abraços
-
Firebird, Interbase Suporta até 200 conexões simultâneas, pelo menos é o que diz no manual ahuahua Pega Firebird, seria um Interbase só que Open http://firebird.sourceforge.net Pega também o IBExpert, é como um DataBase Desktop só que Firebird/Interbase.... http://www.hk-software.net/ibexpert.com/en/home abraços
-
winexec(pchar(caminho da aplicação), sw_shownormal); ou uses ShellAPI ShellExecute(Handle, 'open', pchar(caminho da aplicacao), nil, nil, sw_shownormal);
-
bom, eu acho que, se você não entende nada mesmo, você poderia fazer um curso destes bem básicos de 3 a 4 meses. Qualquer escola de informática tem, não sai caro. O livro é bom sim, como o nome diz, Bíblia do Delphi, mas se você não manja lógica de programação, então talvez você tenha dificuldade abraços
-
opa veja se isso te ajuda http://www.ramosdainformatica.com.br/art_r...s01.php?CDA=762 abraços
-
1- WebBrowser1.Navigate('http://www.seuurl.com'); 2- Coloque um componente ApplicationEvents da paleta Additional vai em OnMessage e cola if (Msg.Message = WM_RBUTTONDOWN) or (Msg.Message = WM_RBUTTONDBLCLK) then if IsChild(Webbrowser1.Handle, Msg.hwnd) then Handled := True; 3- não entendi, o que seria as margens de impressao exatamente 4- Cabeçalho e roda pé, onde tem isso em um webbrowser, voce se refere ao espaço em branco no começo e fim? rsrs 5- Muito difícil amigo o cliente não ter o IE instalado, mas caso isso aconteça, sim sua aplicação não vai funcionar, vai dar um pau de OLE logo de cara e não vai abrir, mas praticamente impossível pois até o Win95 já tinha IE, a diferença pode ser na versão, exemplo, a página HTML usa recursos que somente a partir do IE 5.5 funciona, e o cliente ter o IE 5.0 ai vai dar erros na visualização da página somente isso. abraços
-
mais simples juniorboll, faz a checagem ao clicar do botão que vai alterar/adicionar o campo, no botão de cadastrar por exemplo. try strtodate(dbedit1.text); except ShowMessage('data invalida!'); dbedit1.setfocus; Exit; end; por exemplo... ou melhor ainda, usa máscaras nesse campo, ai não tem como digitar errado abraços
-
Tipo, pelo delphi sempre vai dar pau, pois o delphi mesmo você tratando o erro, ou seja, a exceção ele vai sempre mostrar aquela mensagem de erro, tente o seguinte, compile o programa e rode sem ser pelo delphi abraços
-
Imagelist1.Draw(Image1.canvas, 0, 0, Index da Imagem);
-
Sobre a programação em si, assim como estruturas de código não, mas quanto a interface do programa já não sei te dizer. Mas eles nunca mudam tão a profundo a tanto de você não identificar algo de uma versão pra outra
-
TNM não é do IndyProject, é do NetMasters Indy é TID Os pacotes TNM não vem no Delphi 7 mesmo mor bronca, e até hoje não achei em nenhum lugar pro D7 Agora se você tiver afim de comprar http://www.netmastersllc.com/Home/ Repara que até o site dos caras está desatualizado coisa de 2 anos atrás... abraços
-
tipo isso ajuda? var s: string; begin s := formatdatetime('m', Now); agora no S está armazenado o mês atual abraços
-
boa Micheus ;)
-
Tipo, os do Marco Cantu acho que é isso, procura na saraiva.com.br ou a Bíblia do Delphi, destes tipos... são livros bons
-
tipo esse campo seria o que um edit? dbedit? de qualquer forma, no evento OnExit do componente que vai receber a data digitada você fazer exemplo var _date: tdatetime; begin try _date := strtodate(edit1.text); except showmessage('A data digitada é inválida!'); edit1.setfocus; exit; end; ou você pode ir direto mesmo sem usar variaveis try strtodate(edit1.text); except ... abraço
-
opa se puder me enviar também n tenho nada do tipo :D cebasso@gmail.com bjos nas irmas
-
não que seja um InstallSHield, mas tem o Inno www.innosetup.com
-
affff amigo eu errei ahuahua não é /u é /s ahuahu eu fiz sem o delphi me desculpe então troca winexec(pchar('regsvr32.exe /u bdeinst.dll'), sw_shownormal); por winexec(pchar('regsvr32.exe /s bdeinst.dll'), sw_shownormal); porque /s? Pra que não apareça uma caixa de mensagem do regsvr32.exe dizendo DLLRegisterServer em "C:\blablabla\...dll" teve êxito! abraços
-
tipo, vai em C:\Arquivos de programas\Arquivos comuns\Borland Shared\BDE Abre o arquivo bdeinst.cab e extrai o arquivo BdeInst.dll Coloca esse arquivo "BdeInst.dll" junto com sua instalação, e nas opções do installshield você seleciona algo pra "Registrar Servidor" ou "Register Server" nesse arquivo, não uso installshield então não sei te dar maiores info. De qualquer forma, se quiser instalar o BDE sem usar o installshield, faça um exe, e de um regsvr32 no arquivo bdeinst.dll, não precisa nem de form, vo dar um exemplo rapido Abre o delphi, já vai abrir um novo projeto, fecha o Form1 e a Unit1 Vai no menu Project / View Source Seleciona tudo que está escrito e deleta e cola isso program bdeinst uses windows; procedure InstallBDE; begin winexec(pchar('regsvr32.exe /u bdeinst.dll'), sw_shownormal); end; begin InstallBDE; end; end. Salva e compila, vai ter uns 30kb somente ou menos O BdeInst.dll tem que estar no mesmo caminho desse executavel ou mude o parâmetro do winexec, ou você pode implementar e usar forms... foi só pra mostrar.... abraços ahh li agora outro tópico seu, você diz que o InstallShield instala o BDE automático?!? então já não sei dizer, uso InnoSetup de qualquer forma, usando script é isso ai abs
-
poderia dar um exemplo nem q for errado? da pra entender o que você quer fazer, mas não deu pra entender como você quer fazer... abraços
-
ahh Paulo é isso mesmo, tem que ser colocado na Unit onde se encontra o símbolo de plataforma... abs