Новые книги
 Вниманию читателей предлагается справочник по JavaScript.Справочник предназначается для людей, уже освоивших азы программирования в JavaScript. Справочник создан на основе информации, предоставленной на сайте «Справочник Web-языков» www.spravkaweb.ru. Дата выхода данной версии справочника: 12:33, 21 марта 2007. |
 Наша эра неограниченного доступа к информации – лучшее время, чтобы начать свое дело. Тем более, что маркетинг теперь стал… бесплатным.Каждый день в мире появляются прибыльные проекты, которые не требуют крупных вложений в рекламу. И каждый день рождаются интереснейшие идеи эффективного маркетинга. Чтобы запустить проект мечты, не обязательно читать эту книгу от корки до корки, можете позаимствовать самые сливки. Вам подойдут не все идеи, но скорее всего, подойдет большинство. Все они крайне экономичны, если не бесплатны, – и, главное, эффективны. Большинство стратегий касаются использования интернета как мощного средства маркетинга, однако есть и те, что не связаны с интернетом. |
Вопрос и Ответ 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
...предыдущая страница следующая...
оглавление