Ventana steponTOp a la izquierda

[canelita]

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

[droguerman]

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

[lfb]

Empezado por canelita

Cordial saludo

Quiero hacer una ventana del tipo setpOnTOp pero que quede a la izuierda.

Gracias

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

[canelita]

Empezado por droguerman

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

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.

[canelita]

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.

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

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...