Вопросы и Ответы
58. Как заставить перерисоваться весь экран?
Добиться обновления содержимого всего экрана можно различными способами, но наверное, самый правильный - это воспользоваться функцией RepaintScreen из библиотеки USER.
procedure RepaintScreen; external 'USER' index 275;
Данная функция не требут передачи каких-либо параметров - она просто заставляет обновить содержимое всех окон и видимую область рабочего стола.
unit Unit1; SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls; TForm1 = class(TForm) Button1: TButton; end; var Form1: TForm1; procedure RepaintScreen; RepaintScreen; end;
interface
uses
type
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
implementation
{$R *.DFM}
procedure RepaintScreen; external 'USER' index 275;
procedure TForm1.Button1Click(Sender: TObject);
begin
end.
...предыдущая страница следующая...
оглавление