Ver la Versión Completa : Ventana steponTOp a la izquierda
canelita
13-01-2008, 04:20:46
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
13-01-2008, 06:11:32
has probado con la propiedad formStyle y ponerle el valor fsStayOnTop ?
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 (http://www.clubdelphi.com/foros/member.php?u=5663)
canelita
13-01-2008, 21:35:47
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
13-01-2008, 21:54:34
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]
14-01-2008, 09:58:02
La verdad que no he entendido bien lo que necesitas, pero revisa esta página (http://neftali.clubdelphi.com/); En la sección de ejemplos hay uno llamado "Simular barras flotantes en torno al formulario", a ver si es eso lo que buscas...
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.