Ver Mensaje Individual
  #2  
Antiguo 14-03-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Hay alguna manera de realizar lo planteado, sin usar timers que traigan el foco del form continuamente???
Hola pape19.

Si, tenes que ajustar algunos valores. Supongamos que el form que solo permite la pulsación de un TButton se llame Form2 (¿ Original no ? ) y sea creado desde Form1.

Entonces en Form1:
Código Delphi [-]
uses Unit2;  // Form2

procedure TForm1.Button1Click(Sender: TObject);
begin
  with TForm2.Create(Self) do
  begin
    BorderIcons:= [];  // configurable desde Object Inspector       
    BorderStyle:= bsDialog;  // configurable desde Object Inspector
    FormStyle:= fsStayOnTop;  // configurable desde Object Inspector
    ShowModal;
  end;
end;

Y en Form2 agregar el Button cerrar y este código para que no lo se pueda mover:
Código Delphi [-]
type
  TForm2 = class(TForm)
  .. 
  private
     procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  end;
...
implementation

procedure TForm2.WMSysCommand(var Message: TWMSysCommand);
begin
 if Message.CmdType and $FFF0 = SC_MOVE then
    Message.Result := 0
  else
    inherited;
end;
...
procedure TForm2.btnCerrarClick(Sender: TObject);
begin
  Close;
end;
Y ahí querdará fijo, hasta pulsar el botón que lo cierra...

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 14-03-2012 a las 22:06:49. Razón: agregar comentarios
Responder Con Cita