wm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 58 -> Версия для печати

Вопрос и Ответ 58

Вопрос и Ответ 58

Вопросы и Ответы

      58. Как заставить перерисоваться весь экран?

      Добиться обновления содержимого всего экрана можно различными способами, но наверное, самый правильный - это воспользоваться функцией RepaintScreen из библиотеки USER.

      procedure RepaintScreen; external 'USER' index 275;

      Данная функция не требут передачи каких-либо параметров - она просто заставляет обновить содержимое всех окон и видимую область рабочего стола.

      Пример:

      unit Unit1;

      interface

      uses

        SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;


    • type

        TForm1 = class(TForm)

          Button1: TButton;
          procedure Button1Click(Sender: TObject);
          private
          { Private declarations }
          public
          { Public declarations }

        end;

      var

        Form1: TForm1;

      procedure RepaintScreen;

      implementation

      {$R *.DFM}

      procedure RepaintScreen; external 'USER' index 275;

      procedure TForm1.Button1Click(Sender: TObject);
      begin

        RepaintScreen;

      end;

      end.

...предыдущая страница следующая...
оглавление

Rambler's Top100