Jhonas

Este comando foca e executa os comandos dentro do Post DBNavigator1.BtnClick(nbPost); abraço

OHHHH Elder meu amigo .. mas que falta de atenção procedure TForm1.Button1Click(Sender: TObject); var Saldo, Saida_Estoque : Integer; begin Saldo:=strtoInt(Edit1.text); Saida_estoque:=strtoInt(Edit2.text); Showmessage(Inttostr(Saldo-Saida_Estoque)); // 10 - 11 = -1 end; OBS: Saldo - Saida_estoque não ( + ) abraço

Complementando o post do Micheus Vai um exemplo das informações do link mecionado procedure TForm1.Button1Click(Sender: TObject); var Temp, Platform , Version : String; osInfo : TOSVersionInfo; begin osInfo.dwOSVersionInfoSize:=SizeOf(osInfo); GetVersionEx(osInfo); Version :=IntToStr(osInfo.dwMinorVersion); Temp:=IntToStr(osInfo.dwBuildNumber and $0ffff); Temp:=String(osInfo.szCSDVersion); if (Length(Temp) > 0) then if (Temp[1] <> ' ') then Temp:=' ' + Temp; Version:= Version + Temp; label2.caption := Version; case osInfo.dwPlatformId of VER_PLATFORM_WIN32s : Platform:='Win32s'; VER_PLATFORM_WIN32_WINDOWS : begin if (osInfo.dwMinorVersion = 0) then Platform:='Windows 95' else if (osInfo.dwMinorVersion = 10) then Platform:='Windows 98' else Platform:='Windows Me'; end; VER_PLATFORM_WIN32_NT : case osInfo.dwMajorVersion of 3 : Platform:='Windows NT 3'; 4 : Platform:='Windows NT 4.0'; 5 : case osInfo.dwMinorVersion of 0: Platform:='Windows 2000, Windows Vista ou Windows Server 2008'; 1: Platform:='Windows XP'; 2: Platform:='Windows Server 2003 R2, 2003 ou XP Professional X64 Edition'; else Platform:='Windows Version +'; end; end; end; label1.caption := Platform; end; abraço

Para salvar valores calculados, a sua tabela tem que ter um campo para receber o valor. abraço

qual componente voce esta usando para imprimir ? o QuickReport ?

Colega .. meu tempo esta curto para entregar um trabalho , mas pelo que pude observar, basta voce colocar os registros na tabela na mesma sequencia em que voce colocara nos componentes. abraço

Parametro invalido. Violação de tipo http://www.scitools.com/documents/sample_r...ports/1641.html procure instalar o programa ( executavel ) nas estações e deixar no servidor apenas o banco de dados.... coloque uma rotina para procurar o banco de dados atraves da rede. procure no forum já tem algo sobre este assunto. abraço

tire o panel que resolve. abraço

Na propriedade style deixe como csOwnerDrawFixed var Form1: TForm1; itens : array[1..5] of integer; // Total de itens do Combobox n : integer = 0; x : integer = -1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin // DESABLITAR ITENS DO COMBOBOX n := 1; end; procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var i : integer; begin for i := 0 to ComboBox1.items.Count do begin with ComboBox1.Canvas do begin FillRect(Rect); // verifica se é o indice a ser desabilitado if (Index = itens[i]) then begin Font.Color := clGray; if (odSelected in State) then begin Brush.Color := clWhite; FillRect(Rect); end; end else begin if (odSelected in State) then Font.Color := clWhite else Font.Color := clBlack; end; TextOut(Rect.Left, Rect.Top, ComboBox1.Items.Strings[Index]); end; end; end; procedure TForm1.ComboBox1Click(Sender: TObject); begin if n = 1 then begin x := x + 1; itens[x]:= ComboBox1.ItemIndex; // Item do Combobox que será desabilitado if MessageDlg('Deseja Desabilitar mais um item ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then n := 0; end; if ComboBox1.Canvas.Font.Color = clGray then showmessage('Desabilitado'); end; procedure TForm1.FormActivate(Sender: TObject); var i : integer; begin for i := 1 to 5 do itens[i]:= -1; // limpar o array que guardará os indices do combobox end; end. abraço

me passa a tela que esta mostrando bagunçado abraço

o .ape nada mais é que uma espécie de .zip para áudio (musica comprimida, sem perdas ou LossLess) Site do Monkey Audio: http://www.monkeysaudio.com/ http://terrabrasil.softonic.com/ie/33020/dBpowerAMP abraço

Coloca o seu cógido para poder te dar uma ajuda melhor abraço

Amigo..Na leitura do registro ( tem mais de uma campo que será atribuido ) ? A cada incremento do ContaM ... realmente corresponde ao indice do componente que quer usar ? Observe a sequencia dos registros na tabela... será a mesma que voce terá que usar para jogar os conteudos nos edits abraço

Tipo WordBool: tipos lógico pré-definido .. só aceita True ou False http://www.cultura.ufpa.br/ferreira/Discip...TiposPascal.htm com relação a função .... se Out estiver separado não sei .... se estiver junto representa a quantidade de registros que a função ou procedure ira processar. abraço

use a propriedade DoubleBuffered para resolver isto. property DoubleBuffered: Boolean; veja estes posts http://scriptbrasil.com.br/forum/index.php...=DoubleBuffered abraço

voce está fazendo um loop em cima do banco de dados e não em cima dos componentes... a pesquisa com FindComponent é realizada em cima de todos os componentes que compõem o form ( inclusive ele proprio ) OBS: supondo que os seus edits já estejam nomeados Alu1 ... Alu2 .... Alu3 ... etc para procura-los voce em que fazer uma pesquisa usando o comando FOR procedure TForm1.Button1Click(Sender: TObject); var ContaM : integer; begin for ContaM := 0 to ComponentCount -1 do TEdit( FindComponent( 'Alu' + IntToStr( ContaM ) ) ).Text := '**********'; end; Tente entender a lógica do processo e aplica-lo ao seu código abraço

https://www.scriptbrasil.com.br/script/delp..._boleto_2_0.zip http://codigolivre.org.br/projects/jboleto/ http://sourceforge.net/project/showfiles.php?group_id=42111 abraço

Respondendo a sua pergunta para você fazer uma simples inserção utilizando os componentes ADO e o Access, faça assim: * ADOConnection = apontado para o seu BD; * ADOQuery ou Table = apontando para o ADOConnection; * DataSource = apontando para o ADOQuery/Table. O DataSource deve estar em modo de edição para que você possa fazer a manipulação dos dados. Caso você opte por utilizar o ADOquery (que eu acho mais aconselhavel) em sua propriedade SQL, você deve digitar: SELECT *FROM TABELA (há restrições quanto ao uso do select sem clausulas) Deve deixar a sua Query ativada e dar um duplo clique sobre a mesma, no seu EditorField selecione AllFields e todos os campos da sua tabela serão listados no EditorFields, basta arrasta-los para o seu Form e manipula-los através dos eventos: * INSERT/APPEND; * EDIT; * CANCEL; * DELETE; * POST; Por exemlpo em um TButton pode colocar uma rotina simples: ADOQuery.Insert; E assim por diante. Isso é um exemplo bem básico e simples abraço

Voce pode usar um outro componente ... o OpenDialog1 procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.Filter := 'All (*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)'+ '|*.gif;*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf|CompuServe GIF Image (*.gif)'+ '|*.gif|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps '+ '(*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.em'; OpenDialog1.Execute; // caminho completo label1.Caption := OpenDialog1.FileName; // somente a extensão do arquivo label2.Caption := copy(OpenDialog1.FileName,pos('.',OpenDialog1.FileName),4); end; abraço

O servidor que você estiver enviando o seu domínio foi adicionado à sua lista badmailfrom. Este é um controle de arquivo Qmail que é usado para bloquear o correio de domínios postmaster que não quer receber mensagens. Você deve contactar a pessoa que está bloqueando você e perguntar "Porquê?" abraço

//Função converter Segundos para MINUTOS Oi Eder ... tenta este function FormatSecsToMin(Secs: LongInt): string; var Min: Word; begin Secs := Secs mod 3600; Min := Secs div 60; Secs := Secs mod 60; Result := Format('%d:%d', [Min, Secs]); end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FormatSecsToMin(strtoint(edit1.text)); end; abraço

É comum sim .... o layout não será o mesmo ( espaçamento ) para uma outra impressora... isto tem haver com drives da impressora ... infelizmente voce terá que modificar o layout quando utilizar uma outra impressora. Em todo caso, veriique se a impressora possui nas suas configurações o mesmo tipo de papel e fonte, mas sempre que tentei deu diferença. abraço

Tabela.Open; Tabela.DeleteRecords; Tabela.Close; Deveria funcionar.... tente desta maneira Tabela.Open; for i := 1 to Tabela.RecordCount do begin Tabela.Delete; Tabela.Post; Tabela.Next; end; Tabela.Close; abraço

Veja se é isto que está querendo var Form1: TForm1; rodada : integer = 0; num : integer = 0; n : integer = 1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin num := num + 1; if num < 4 then begin rodada := n; memo1.Lines.Append(inttostr(rodada)+'ª '+'Rodada'); end else begin num := 1; n := n + 1; rodada := n; memo1.Lines.Append(inttostr(rodada)+'ª '+'Rodada'); end; end; abraço