Busco un programita que dibuje un rectangulo transparente en la pantalla ...

[JoysticK]

Me voy a responder yo solo:

var
  Desktop: TControlCanvas;
  Ax, Ay, Bx, By: Integer;

begin
  Desktop := TControlCanvas.Create;

  try
    Desktop.Handle := GetDC(0);

    Desktop.Pen.Mode := pmNotXor;
    Desktop.Pen.Width := 2;
    Desktop.Pen.Color := clRed;

    Ax := Trunc( (Screen.Width - Ancho.Value ) / 2 );
    Ay := Trunc( (Screen.Height - Alto.Value ) / 2 );

    Bx := Trunc( Ax + Ancho.Value );
    By := Trunc( Ay + Alto.Value );

    Desktop.Rectangle(Ax, Ay, Bx, By);

  finally
    Desktop.Free
  end;


end;

Dibujarlo me lo dibuja, lastima que no se pudiera "quedar" por ahi flotando por la pantalla mientras trabajo

[[Delphius]]

Hola JoysticK,
Lo que debes hacer es diseñar tus formas, y disponer los controles de manera que se aprovechen las siguientes propiedades:
Align
Constraints
Anchors

Y puede que en ciertos casos debas emplear el evento OnResize y/o OnCanResize.

La combinación de dichas propiedades te permitirán adaptar tus controles de mejor manera en distintas resoluciones.

Si tienes dudas sobre dichas propiedades lee la ayuda que acompaña a Delphi pulsando F1 estando seleccionada la propiedad.

Saludos,

[Neftali [Germán.Estévez]]

Tal vez esto te sirva igual y seguramente es más práctico, ya que no tienes el cuadro "pululando" por la ventana.
"Screen ruler" o regla en pantalla; Puedes configurarla para que aparezca doble, y añadir el 800x600.



Con eso podrás tener una idea de la posición exacta donde diseñas.

[JoysticK]

Gracias Neftali, algo asi era exactamente lo que estaba buscando

Te debo una