DELPHI-Man32

Para obter os valores das coordenadas do mouse de qualquer parte da tela, basta que se utiliza a função da API do Windows GetCursorPos. Esta função é interessante pois oferece ao programador os valores (x,y) de qualquer ponto da tela e não somente da aplicação. Para implementação, esta função pode ser utilizada da seguinte maneira: procedure TForm1.Timer1Timer(Sender: TObject); var pt: TPoint; begin GetCursorPos(pt); // Pega a posição atual do mouse; //Mostra os valores das coordenadas do mouse label1.caption := IntToStr(pt.x) + ',' + IntToStr(pt.y); end; Esta é mais uma das milhares de funções da API do Windows. Abraços,

só LAMENTO... AMIGO... TENTA PEGAR O COMPONENTE EM OUTRO LUGAR, DEVE TER não!....

Q TAREFA SERIA ESSA? EXPLIC-SE....

Código Completo: declara após o type junto aos outros procedimentos! Procedure Desenha(figura:String;H,V:Integer); --------------- Procedure TForm1.Desenha(figura:String;H,V:Integer); Var Imagem :TBitMap; begin Imagem := TBitMap.Create; Try Imagem.LoadFromFile(Figura); Canvas.Draw(H,V,Imagem); Except ShowMessage(' Arquivo não foi localizado !'); end; end; ExemploQuando o botão for clicado, uma imagem será inserida no formulário, nas coordenadas (10,20); procedure TForm1.Button1Click(Sender: TObject); begin Desenha('c:\windows\bolhas.bmp',10,20); end;

vai mais duas formas... procedure TForm1. FormCreate(Sender:Tobject); begin grafico:= TBitmap.Create; grafico.LoadFromFile ('C:\DIRETORIO\IMAGE.bmp'); end; procedure TForm1.FormPaint(Sender:TObject); begin Form1.Canvas.Draw(0,0,grafico); end; end ------------------------------------------------------------- Código Completo: declara após o type junto aos outros procedimentos! Procedure Desenha(figura:String;H,V:Integer); ---- Procedure TForm1.Desenha(figura:String;H,V:Integer); Var Imagem :TBitMap; begin Imagem := TBitMap.Create; Try Imagem.LoadFromFile(Figura); Canvas.Draw(H,V,Imagem); Except ShowMessage(' Arquivo não foi localizado !'); end; end; ExemploQuando o botão for clicado, uma imagem será inserida no formulário, nas coordenadas (10,20); procedure TForm1.Button1Click(Sender: TObject); begin Desenha('c:\windows\bolhas.bmp',10,20); end; VAGNER...

ESTE PRIMEIRO, MOVE O FORM, MAS NÃO DEIZA SAIR DA ÁREA DA TELA! - Na seção Private declare a procedure abaixo: private procedure WMMove(var Msg: TWMMove); message WM_MOVE; - Abaixo da palavra implementation escreva a procedure abaixo: procedure TForm1.WMMove(var Msg: TWMMove); begin if Left < 0 then Left := 0; if Top < 0 then Top := 0; if Screen.Width - (Left + Width) < 0 then Left := Screen.Width - Width; if Screen.Height - (Top + Height) < 0 then Top := Screen.Height - Height; end; Para testar: - Execute o programa e tente arrastar o form para fora das margens da tela e veja o que acontece. ----------------------------------------- ESTE CENTRALIZA O FORM NO DESKTOP! var r : TRect; osv : TOSVersionInfo; begin osv.EdwOSVersionInfoSize := sizeof(osv); GetVersionEx(osv); if osv.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then begin SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0); Left := ((r.right - r.left) - Width) div 2; Top := ((r.bottom - r.top) - Height) div 2; end else begin Left := (GetSystemMetrics(SM_CXSCREEN) - Width) div 2; Top := (GetSystemMetrics(SM_CYSCREEN) - Height) div 2; end; end; VEJA SE SERVEM PRA VC! abraços, VAGNER.

FAÇA COMO O AMIGO ARLON, VEJA SE TEM ALGUM COMPONENTE COM A PROPRIEDADE "ENABLED" ESTÁ ATIBUIDA COMO "FALSE" ASSIM ELE NÃO PODERÁ RECEBER O FOCO! VEJA O TABORDER... E AJUSTE AO SEU GOSTO!

na opção "Align" do Object Inspector nas propriedades do TImage, coloque para "client" VAGNER...

amigo RENATO..., olha aeh^... não se esqça de se registrar no forum! vai aqui todos os passos para vc "ligar uma tabela" não ao form mais nos "TObjects" > "TDBEdit" 1 - você cria a tbl ! 2 - salva ela no diretorio do prog. ! 3 - Cria um alias(ligará o diretorio das tbls ao seu prog!) 3.1 - Abre o DataBase Desktop! 3.2 - Clique em Tools > Alias Manager... 3.3 - Clique em New... 3.4 - Digite um nome para seu Alias... 3.5 - Clique em Browser(Aponte para o diretorio das tbls)... 3.6 - Clique em OK... 4 - Feche o DataBase Desktop. 5 - Abra e Delphi... 6 - Clique na paleta Data Access... 7 - Clique no segundo componente.. "Table"... 8 - Clique no form...(isso irá colocar a tbl no form). 9 - Selecione a tbl e no object inspector escolha a Alias na opção "DataBaseName" coloque seu alias... 10 - Na opção "TableName" selecione a tbl... 11 - Clique com o botão direito em cima da tbl e escolha "Fields editor..." 12 - Na Janelinha... clique com o bt direito e depois em "Add all fields" 13 - Clique no campo e arraste para o form... PRONTO!. Ajuste ao seu gosto! para criar ação para a tbl é outros 500, Coloque no Evento ONCLICK dos Botões; -------------------------------- Inserir: Table1.Append; -------------------------------- Editar: Table1.Edit; -------------------------------- Excluir: if application.messagebox('Se deseja excluir o usuário, clique em OK!', 'Excluir Usuário', mb_OKCancel + mb_Iconquestion)=IDOK then Table1.delete; -------------------------------- Gravar: Table1.Post; ShowMessage('Regristro gravado com sucesso'); -------------------------------- é só implementar... você PODERÁ FAZER PELO MENU "DataBase > Form Wizard" AI E só SEGUIR... MAS OS COMPONENTES SÃO ORDENADOS PELO DELPHI... UMA BAGUNÇA... FAÇA DO JEITO Q você QUISER!. abraços, VAGNER. E-mail: design-vagner@bol.com.br MSN: design_vagner@hotmail.com

corposemalma não quero nada deles, estão na cx, é para uma escola de informática e preciso só tirar o Red Hat do HD e Colocar o windows!

olá pessoal tenho 20 pc's com red hat linux e preciso saber como fazer para tirar e colocar o windows? abraços, até mais.

CONTATE-ME POR E-MAIL PARA PODER TE MANDAR UM EXEMPLO BEM BACANA! FALOWSS, ABRAÇOS, VAGNER.

posso mandar um programinha básico que fiz com a ajuda dos amigos bolomaster e keitarosan. é o ClockPLUS... BEM SIMPLES, MAS FAZ UMA ZUADA!!!! se quiser passo por e-mail, manda aeh^!!! abraços, VAGNER FRANCO.

cara. como disseram nossos amigos aeh^ mete bronca!! colocar seu .exe na fita! sem medo, estados aqui para ajudar uns aos outros! falowss Lembre-se: "O único lugar onde sucesso vem antes de trabalho é no dicionário" DELPHI-Man32....

é isso ae^ mesmo cara! você declara a variável, depois atribui o seu valor e converto usando STRTOFLOAT Tópico Fechado!!!!!

cara, não sei se é possivevl, mas quando o dataset esta com seu Active em False, a tbl está fechada, então você pode até digitar os dados nos edits porém não poderá gravá-los tudo isso em RunTime, no modo de criação acho que editar dados não,. até porque você não vê os dados! pelo menos no DELPHI 5, que é o q uso!

veja se no seu cd do DELPHI tem o programa InstallShield, que é o programa que cria os pacotes de instalação, se não veja no site indicado pelo amigo aeh^. fallowss,

valeu cara vou tentar isso e retorno falowss! abraços, Vagner.

sei que para eliminar as barras de rolagem é só usar dentro da teg body scroll="no" mas e para eliminar somente a barra horizontal ? como é? alguém pode me ajudar!

veja se é isso que você precisa! vamos pegar o nome do usuário que está logado no sistema: quando ele digitar o nome a a senha voce pode pegar esses valores digitados no form de login: assim no form2: Panel1.Caption:=form1.edit_user.text'; o nome do usuario aparecerá no panel1 fo form2, ou seja já dentro do programa! qualquer duvida sobre o ex. posta pra mim via PM e ou email design-vagner@bol.com.br

o q mesmo q você quer que essas subrotinas façam amigo! quando os bts forem clicados(não apertados) em especial

o conteudo está bem legal, você poderia colocar uma seção só para iniciantes, com dicas básicas de programação, seria legal! falando do design, está fraco, se pelo menos o frame estivesse sem a borda, ehehehe! coloca um pouca mais de interação, animação, uma cores legais! e até SWF. parabens pela iniciativa! abraços, Vagner Franco!

KRO AMIGO, TODO OBJETO NO DELPHI TEM UM NOME, O DELPHI TRATA TODOS ESSES OBJETOS SIMPLESMENTE COMO (T Objeto). ENTÃO SE você QUER VER ISSO, OLHE ESTA PARTE NUMA UNIT DO SEU PROJETO... type TForm1 = class(TForm) Edit1: TEdit; Table1: TTable; DataSource1: TDataSource; Table1Nome: TStringField; Table1Codigo: TFloatField; Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; DBNavigator1: TDBNavigator; Cleio que seja Tipo de Objeto (Type) olha lá em cima! por isso que todo objeto vem precedido de T. então um edit é um objeto do tipo TEdit; uma Table é um objeto do tipo TTable; e assim vai! SE alguém TIVER UMA EXPLICAÇÃO MELHOR, FIQUE A VONTADE!

Esta dica ensina como fazer para que seu aplicativo possa enviar e-mails sem a necessidade de nenhum outro programa. Crie uma nova aplicação e adicione um TButton e um NMSMTP(componente da palheta FastNet). No evento On Click do TButton coloque o seguinte código: procedure TForm1.Button1Click(Sender: TObject); begin NMSMTP1.Host := 'mail.clubedelphi.com.br'; NMSMTP1.UserID := 'Vinicius'; NMSMTP1.Connect; //Inicia a conecção; NMSMTP1.PostMessage.FromAddress := 'vinicius.andrade@clubedelphi.com.br'; NMSMTP1.PostMessage.ToAddress.Text := 'marco@clubedelphi.com.br'; NMSMTP1.PostMessage.ToCarbonCopy.Text := 'AnotherUser@host.com'; NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'AnotherUser@host.com'; NMSMTP1.PostMessage.Body.Text := 'Teste de mesg'; NMSMTP1.PostMessage.Attachments.Text := 'c:\File.txt'; NMSMTP1.PostMessage.Subject := 'Teste'; NMSMTP1.SendMail; //Envio do e-mail; ShowMessage('E-Mail Enviado !'); NMSMTP1.Disconnect; end; end. Este é um exemplo simples de como enviar um e-mail para você utilizar em seus aplicativos. veja se isso pode te ajudar ----------------------------------------------------------------------------------------------- Fonte clubedelphi.com.br

você esta trabalhando com codigo, integer(inteiro). para colocar o valor inserido no edit no dbedit: se usar numeros para o código; declare uma variável qualquer do tipo (integer) var valor : integer; begin valor := StrToInt(Edit1.text); if valor = Table1Codigo.Value then begin ShowMessage('Este código já existe, Tente outro!'); edit1.setfocus; end else begin dbedit2.Text := IntToStr(valor); dbedit1.SetFocus; end; end; veja se pode te ajudar!