Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Colocar el cursor del ratón en una posición determinada - Delphi
Lenguaje de programación Borland Delphi



Este código coloca el cursor del ratón en en centro de un componente TEdit:

procedure TformMenuPrincipal.Edit1Enter(Sender: TObject);
var 
  cntl: TControl;
  xCenter, yCenter: Integer;
  ptBtn: TPoint; 
begin 
  cntl := TControl(Sender);
  xCenter := cntl.Left + (cntl.Width div 2); 
  yCenter := cntl.Top + (cntl.Height div 2); 
  ptBtn := ClientToScreen(Point(xCenter, yCenter)); 
  SetCursorPos(ptBtn.X, ptBtn.Y); 
end; 




Publicado el: 2004-09-05

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+