Пом0гите разобратся

[Alecksandra12]

Люди нужно ( Написать процедуру очистки формы.) Вот для этого задания, но не пойму как это сделать помогите.

[xxbesoxx]

Сообщение от Alecksandra12

Люди нужно ( Написать процедуру очистки формы.)

На кнопке пиши

procedure TForm1.Button1Click(Sender: TObject);
  var
     a,b,c,d:Integer;
begin
   a:=Canvas.ClipRect.Left;
   b:=Canvas.ClipRect.Top;
   c:=Canvas.ClipRect.Right;
   d:=Canvas.ClipRect.Bottom;
   PatBlt(Canvas.Handle, a,b,c,d, WHITENESS);
end;

или можно прямо так

procedure TForm1.Button1Click(Sender: TObject);
begin
  PatBlt(Form1.Canvas.Handle, 0, 0, Form1.ClientWidth, Form1.ClientHeight, WHITENESS);
end;

Гуглите не стесняйтесь

[min@y™]

Касперский по-прежнему молчит?

8.png

Мой вариант не устроил? Почему?