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;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TForm2.Create(Self) do
begin
BorderIcons:= []; BorderStyle:= bsDialog; FormStyle:= fsStayOnTop; 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.