Tela de descanso com Delphi

Uma tela de descanso (também conhecida como protetor de tela) em um software Delphi pode ser implementada de várias maneiras, dependendo dos recursos e do propósito específico do seu software. Geralmente, as telas de descanso são usadas para evitar o burn-in de monitores e oferecer algo visualmente atraente enquanto o computador está inativo. Aqui está um exemplo simples de como você pode criar uma tela de descanso em Delphi:

 

   
unit ScreenSaverForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
  TFormScreenSaver = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormScreenSaver: TFormScreenSaver;

implementation

{$R *.dfm}

procedure TFormScreenSaver.FormCreate(Sender: TObject);
begin
  // Configurar a janela da tela de descanso para cobrir toda a tela
  BorderStyle := bsNone;
  Position := poScreenCenter;
  WindowState := wsMaximized;
  Color := clBlack; // Definir a cor de fundo
  Cursor := crNone; // Ocultar o cursor do mouse
end;

procedure TFormScreenSaver.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  // Fechar a tela de descanso se qualquer tecla for pressionada
  Close;
end;

procedure TFormScreenSaver.Timer1Timer(Sender: TObject);
begin
  // Implemente aqui a lógica da sua tela de descanso
  // Isso pode incluir animações, gráficos ou outras ações visuais
  // Neste exemplo, apenas definimos uma cor de fundo aleatória
  Canvas.Brush.Color := RGB(Random(256), Random(256), Random(256));
  Canvas.FillRect(ClientRect);
end;

end.

  
 
      

Neste exemplo, criamos um formulário Delphi (TFormScreenSaver) que será usado como tela de descanso. Configuramos a janela para cobrir toda a tela, definimos uma cor de fundo e ocultamos o cursor do mouse. Usamos um timer para atualizar a tela de descanso periodicamente.

Você pode personalizar a lógica dentro do evento Timer1Timer para exibir animações, gráficos ou qualquer outra coisa que desejar na tela de descanso. A tela de descanso é fechada quando qualquer tecla é pressionada, conforme tratado no evento FormKeyDown.

Lembre-se de configurar o projeto Delphi para iniciar o formulário TFormScreenSaver como a principal forma do aplicativo quando a tela de descanso é ativada. Além disso, você pode configurar o tempo de inatividade necessário para ativar a tela de descanso no sistema operacional.

17/04/2026 05:01 Delphi 390
Topo