amauri_filho

Bom dia pessoal. Tenho um conhecimento muito precario ainda em java, e estava buscando na internet alguns cursos online para fazer, mesmo que pagos, porem não tive muito sucesso. Algum de vocês sabem algum site bom onde eu possa fazer um curso online? Muito Obrigado

Bom pessoal, o meu problema é o seguinte: no local onde trabalho temos um servidor rodando EasyPhp 1.7, como se sabe ele é um pacote que vem com MySql, Php e Apache. Estou desenvolvendo uma aplicação, em delphi 6, onde quero utilizar esse banco MySql. Utilizando o Zeos, eu já consegui fazer cadastros, só que apenas localmente, ou seja, instalei o EasyPhp na minha maquina e assim eu consegui cadastrar. Entaum instalei o EasyPhp em outra maquina da rede, antes de testar no servidor, para ver se eu conseguia fazer o acesso, porem da erro ao tentar conectar e não conecta. alguém sabe o que pode estar dando errado?

Estou com um problema, estou fazendo um sistema para gerenciamento de patrimonio. Ele cadastra, consulta e faz relatório. Porem na parte de gerenciamento, ele permite que eu cadastre mais de um patrimonio com o mesmo numero. O problema é quando eu vou no database desktop, ele não deixa eu salvar o numero do patrimonio como chave primaria. Se alguém puder me ajudar, obrigado!

Obrigado, agora estou colocando o código! unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; mover: integer; Fdragging: Boolean; implementation {$R *.DFM} procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin mover := 1; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin mover := 2; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if mover=1 then begin Image1.Top := y-Image1.Width div 2; Image1.Left := x-Image1.Height div 2; end; end; end.

Esta selecionado sim! você sabe o que mais pode ser? Minha professora falou que no código eu tenho que utilizar o comando handle, mais não consegui descobrir como faço isso! De qualquer forma, obrigado!

Estou tentando montar um quebra-cabeça para um trabalho de escola, mais não consigo fazer com que a imagem se mova junto com o mouse. Quando eu clico e arrasto o mouse, a imagem até se movimenta, porém ela não acompanha exatamente onde o mouse esta, ela fica meio longe e insiste em ficar voltando pro inicio do formulario! alguém pode me ajudar? Obrigado! ;) :blink: :rolleyes: