Jhonas

voce passar mais tempo nisso se não entender o que esta fazendo.... Cursor := crCross; Parent := sbxPra; Top := top_edit; Left := left_edit; Name := 'ed_' + IntToStr( a ) + FormatDateTime( 'hhnn', HoraAtual ); Width := 65; //Enabled := False; ReadOnly := True; Text := ''; --------------------------------------> ate aqui voce trabalhou com properiedades do componente ( sem erros ) OnDblClick := PreencheEdit; OnKeyDown := BloqueioDesbloqueio; OnMouseMove := MudarCursor; --------------------------------------> aqui são eventos do componete, que antes de atribuir a eles uma procedure, voce tem que criar estes eventos (Access violation at address 00428690 in module 'sistemacfc.exe'. Read of address 0000010 ) agora estou sem tempo para te explicar... quem sabe outro colega o ajude abraço

tente alterar a propriedade FontJustify para pjBlock. abraço

isto nada mais é do que a instrução de conexão com o banco de dados.. no delphi voce pode fazer a mesma coisa usando componentes de conexão para banco de dados Firebird/InterBase. faça uma pesquisa no forum. abraço

Especializado algoritmo de programação linear Simplex: com 2 exemplos http://www.baixaja.com.br/downloads/Window...elphi_2821.html Outro software para metodo simplex em delphi http://sourceforge.net/project/showfiles.php?group_id=145213 abraço

Para o componente Query1 use Query1.ApplyUpdates; Para o componente IBQuery1 use IBQuery1.ApplyUpdates(-1); abraço

Advanced Data Export VCL Suite (full version - registration key required) se não usar a versão full não vai conseguir. abraço

Dentro da pasta OContls voce encontrara mais 2 pastas ( Delphi1 e Delphi2 ) dentro da pasta Delphi2 voce achara o arquivo ocontrls.res, que deverá ser copiado para a pasta OContls para ficar junto com o arquivo ocontrls.pas. Depois voce abre o delphi, no menu encontrará uma opção chamada Component... clique em Component e depois em Install Component ... selecione a opção Into new package em Unit file name ... procure pelo botao Browse o caminho onde se encontra o arquivo ocontrls.pas. em Package file name digite Office97 e clique no botão OK o componente será instalado no delphi e será encontrado na aba Win95 como usá-lo fica a criterio da sua imaginação. abraço

Que tal postar o seu codigo para facilitar a juda ? abraço

amigo voce tem que ser mais claro em suas informações: Versão do delphi que esta usando Tipo de tabela que está usando : Interbase, Paradox ou outro QRFuncao é o nome da sua table, é um QuickReport, ou é uma Query ? Se QRFuncao é o nome da sua tabela, para retornar erro em ApplyUpdates(-1) significa que voce está usando um Table e não uma Query ... neste caso é só tirar o (-1). abraço

procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Deseja Apagar o Registro ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin NomedaSuaTabela.Delete; NomedaSuaTabela.ApplyUpdates(-1); end; end; abraço

Se estiver usando um dbnavigator linkado ao dbgrid, uso o botão ( - ) ou então pode utilizar as teclas Ctrl + Shift + Del abraço

Verifique a configuração do seu teclado .... va em painel de controle / opções regionais e de idioma / configurações / idiomas / detalhes coloque o idioma padrão para o seu teclado.. experimente colocar ... portugues ( brasil abnt ) se este não funcionar então veja o tipo do seu teclado e configure. abraço

Tenta dessa maneira: procedure TFrmTeoricas.FormCreate(Sender: TObject); var CodAlu, Materias : TEdit; CA, CAC, MA, MAC : Integer; begin // Criando total de alunos for CA :=1 to 15 do for CAC := 1 to 50 do // criando colunas begin CodAlu := TEdit.Create(nil); CodAlu.Parent := FrmTeoricas; CodAlu.Name := 'Alu'; CodAlu.Left := -4+(CAC*92); CodAlu.Height := 25; CodAlu.Width := 60; CodAlu.AutoSize := false; CodAlu.Font.Size := 10; CodAlu.Text := ''; CodAlu.top := -25+(CA*26); CodAlu.Cursor := crCross; end; // Criando totais de materias for MA :=1 to 15 do for MAC := 1 to 50 do // criando colunas de materias begin Materias := TEdit.Create(nil); Materias.Parent := FrmTeoricas; Materias.Name := 'Mat'; Materias.Left := 58+(MAC*92); Materias.Height := 25; Materias.Width := 25; Materias.AutoSize := false; Materias.Font.Size := 10; Materias.Text := ''; Materias.top := -25+(MA*26); Materias.Cursor := crCross; end; end; Na sua procedure TFrmTeoricas.ConsultaAgendamento ... tente usar a ideia que passei para voce no outro post http://scriptbrasil.com.br/forum/index.php...st&p=490186 abraço

Veja este post http://scriptbrasil.com.br/forum/index.php...st&p=490179 abraço

mas tenho certeza que está errada: Amigo... Vou te dar uma ajuda...mas voce precisa estudar mais logica de programação e sintaxe dos comandos do delphi procedure vermouse; var i : Integer; begin for i := 0 to Form1.ComponentCount -1 do begin if Form1.Components[i] is TEdit then begin if TEdit(Form1.Components[i]).Text = '' then begin if Form1.Components[i] is TEdit then TEdit(Form1.Components[i]).Cursor := crHandPoint; end else begin if Form1.Components[i] is TEdit then TEdit(Form1.Components[i]).Cursor := crMultiDrag; end; end; end; end; procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin vermouse; end; procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin vermouse; end; procedure TForm1.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin vermouse; end; OBS: Ao passar com o cursor nos edits que estiverem no formulario, ele fara uma verificação... se houver algum conteudo no edit ele mostrara um tipo de cursor ... caso contrario mostrara outro tipo. abraço

Veja este post te ajuda http://scriptbrasil.com.br/forum/index.php...st&p=489768 abraço

Voce vai encontrar um exemplo prontinho no delphi. C:\Arquivos de Programas\Borland\Delphi7\Demos\CoolStuf abraço

Amigo ... voce já tem o codigo, então basta voce muda-lo um pouquinho ( falta a voce estudar mais sobre sintaxe dos comandos) a alteração é muito simples: function SetNewTime(Hora, Min, Seg: word): boolean; var st: TSYSTEMTIME; begin GetLocalTime(st); // Pega hora corrente st.wHour := Hora; st.wMinute := Min; st.wSecond := seg; if not SetLocalTime(st) then Result := FALSE else Result := true; end; procedure TForm1.Timer1Timer(Sender: TObject); var Present: TDateTime; Hour, Min, Sec, MSec: word; hh, mm, ss : shortstring; begin Present:= Now; DecodeTime(Present, Hour, Min, Sec, MSec); sec := sec - 1; // mantem o relogio parado entre um segundo e outro hh := IntToStr(hour); mm := IntToStr(min); ss := IntToStr(sec); SetNewTime(StrToInt(hh),StrToInt(mm),StrToInt(ss)); end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := true; SetNewTime(StrToInt('19'),StrToInt('30'),StrToInt('00')); end; OBS: deixe inicialmente a propriedade Timer1.Enabled como false; abraço

O S.M.A.R.T ou Self-Monitoring, Analysis, and Reporting Technology, são nada mais que um conjunto de informações guardadas no disco sobre o funcionamento do mesmo...coisas como a quantidade de falhas de leitura/escrita, o número de horas de funcionamento, o número de vezes que foi ligado, etc... Isto significa que a quantidade de erros ( Bad Clusters ) está tão grande que se voce não fizer um backup logo, voce vai perder os dados do HD Se o seu computador continuar reiniciando do nada, pode ser virus ou falha na leitura dos drives do windows. sugestão: passe um bom antivirus ... se nada for encontrado, pode ser problema com o HD. (SMART) abraço

Oi Eder.... A sugestão é colocar esta logo da empresa em um arquivo .doc e envia-lo. Se eu encontrar alguma coisa, posto para voce. ... mas vai ser dificil. abraço

No meu caso o meu modem já tem um IP de configuração, basta digita-lo e acessar a pagina de configuração do modem se for um Modem Router, o Modem vai bloquear a Conexão entre os mesmos .... sim vai Um servidor de internet tambem pode bloquear e voce teria apenas o ip do servidor e não das maquinas Como será encontrado e fará a Conexão na Internet entre o Cliente e o Server... como já disse, voce terá que estudar um pouco sobre VNP abraço

Faça uma pesquisa no forum, já tem alguma coisa a respeito. http://scriptbrasil.com.br/forum/index.php...lite=justificar abraço

Voce pode colocar um Combobox, ou um CkeckBox, ou um DateEdit .... mas concorda que ficaria sem sentido colocar uma grid dentro de outra ? o maximo que da pra fazer é colocar uma ao lado da outra. Acho que não é possivel, mas voce pode procurar pela Net. abraço

Vai ai um exemplo bem simples: var Form1: TForm1; cont : integer = 0; implementation {$R *.DFM} procedure TForm1.RadioButton1Click(Sender: TObject); begin cont := cont + 1; if cont = 1 then begin RadioButton1.Checked := true; Label2.Caption := inttostr(cont); end else begin RadioButton1.Checked := false; Label2.Caption := inttostr(cont); cont := 0; end; if RadioButton1.Checked = true then Button1.Caption := 'Teste1' else Button1.Caption := 'Teste2'; end; procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Caption = 'Teste1' then begin Label1.Caption := timetostr(now); RadioButton1.Checked := false; end; if Button1.Caption = 'Teste2' then begin Label1.Caption := datetostr(now); // end; end; abraço

Tenta dessa maneira: OBS: não tenho estes cursores, poranto usei os que acompanham o delphi procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin If Edit1.Text <> '' then begin Edit1.cursor := crHandPoint; end else begin Edit1.cursor := crMultiDrag; end; end; abraço