Ver Mensaje Individual
  #2  
Antiguo 28-11-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Colocar la ventana relativa a la posición exacta del icono, aunque supongo que se puede hacer, se me hace un poco excesivo. Yo la colocaría simplemente de acuerdo la posición de la barra de tareas (ésta determina la equina donde se encuentra el área de iconos) y eso lo puedes hacer así:

Código Delphi [-]
uses  ShellApi;

...

var
  AppBarData: TAppBarData;

begin
  AppBarData.cbSize := SizeOf(AppBarData);
  AppBarData.hWnd := 0;

  SHAppBarMessage(ABM_GETTASKBARPOS, AppBarData);
  case AppBarData.uEdge of
    ABE_BOTTOM: ShowMessage('abajo');
    ABE_LEFT: ShowMessage('izquierda');
    ABE_TOP: ShowMessage('arriba');
    ABE_RIGHT: ShowMessage('derecha');
  end;
end;

// Saludos
Responder Con Cita