|
Разделы сайта
|
Главнаяwm-help.net -> Электронная библиотека -> Delphi -> Вопросы и Ответы по Delphi -> Вопрос и Ответ 58
Вопрос и Ответ 58
Вопросы и Ответы
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.
58. Как заставить перерисоваться весь экран?
Добиться обновления содержимого всего экрана можно различными способами, но наверное, самый правильный - это воспользоваться функцией RepaintScreen из библиотеки USER.
procedure RepaintScreen; external 'USER' index 275;
Данная функция не требут передачи каких-либо параметров - она просто заставляет обновить содержимое всех окон и видимую область рабочего стола.
unit Unit1; SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
interface
uses
...предыдущая страница следующая...
оглавление