Ventana steponTOp a la izquierda
 

Cordial saludo

A ver si me puden dar una ayudita

Quiero hacer una ventana del tipo setpOnTOp pero que quede a la izuierda.
Al hacer click en el boton cerrar me aparezca otra ventatna igual en tamaño y en la misma posición.

Oviamente debe tener la ventana superior del Menu y otra a la parte derecha
con un form cualquiera.

Gracias

has probado con la propiedad formStyle y ponerle el valor fsStayOnTop ?

Si es como pienso en la propiedad Align pones alLeft y FormStyle fsStayOnTop como dijo droguerman

Si pero eso solo funciona para el formulario principal.
En la aplicacion deben quedar visibles tres ventanas
La del menu principal
La de la Izquierda
La del Cento_Derecha


Ademas cuando pulce cerrar en la ventana de la izquierda debe aparecer otra ventana del mismo tamaño y posicion con un splash.

Componente Shape con Imagen Evento y texto.
 

unit shape1;
interface
uses
Windows, Messages, graphics, SysUtils, Classes, Controls, ExtCtrls;
type
oNCLICKEVENTO =procedure(Sender:TObject) of object;
tshape1 = class(TShape)
private
FOnClick: oNCLICKEVENTO;
FCaption:string;
Fbitmat:tbitmap;
procedure CMMouseClick(var msg:TMessage);//; message CM_MOUSECLICK;
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
Property Tcaption:string read Fcaption write fcaption ;
property OnClick: oNCLICKEVENTO read FOnClick write FOnClick ;
Property bitmat:Tbitmap read fbitmat write fbitmat;
procedure LLenaimagen(x:String);

{ Published declarations }
end;
procedure Register;
implementation
unit shape1;
interface
uses
Windows, Messages, graphics, SysUtils, Classes, Controls, ExtCtrls;
type
oNCLICKEVENTO =procedure(Sender:TObject) of object;
tshape1 = class(TShape)
private
FOnClick: oNCLICKEVENTO;
FCaption:string;
Fbitmat:tbitmap;
procedure CMMouseClick(var msg:TMessage);//; message CM_MOUSECLICK;
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
Property Tcaption:string read Fcaption write fcaption ;
property OnClick: oNCLICKEVENTO read FOnClick write FOnClick ;
Property bitmat:Tbitmap read fbitmat write fbitmat;
procedure LLenaimagen(x:String);

{ Published declarations }
end;
procedure Register;
implementation


procedure TShape1.CMMouseClick(var Msg:TMessage);
begin
inherited;
if Assigned (FOnClick) then
FOnClick(Self);
end;
procedure TShape1.LLenaimagen(x:string);
var Bitmap: TBitmap;
begin
Bitmap := TBitmap.Create;
try
Bitmap.LoadFromFile(x);
Canvas.Brush.Bitmap := Bitmap;
Canvas.FillRect(Rect(0,0,100,200));
finally
Canvas.Brush.Bitmap := nil;
Bitmap.Free;
end;
end;

procedure Register;
begin
RegisterComponents('Additional', [tshape1]);
end;

end.

La verdad que no he entendido bien lo que necesitas, pero revisa esta página; En la sección de ejemplos hay uno llamado "Simular barras flotantes en torno al formulario", a ver si es eso lo que buscas...