Предыдущая публикация
У меня вопрос вот такого плана.
Я написал программу-анимацию. Что мне в ней изменить что бы программа после того как я второй раз нажму на кнопку первый круг стирала а второй рисовала в другом месте. Но только после того как я нажму кнопку второй раз а не с первого нажатия как в моем коде
form1.canvas.Ellipse(100, 100, 200, 200);
sleep(2000);
Canvas.Fillrect(canvas.cliprect);
canvas.Ellipse(200, 200, 300, 300);
Следующая публикация
Комментарии 7
var
x,y: integer;
begin
PatBlt(Canvas.Handle, 0, 0, ClientWidth, ClientHeight, WHITENESS);
x := Random(ClientWidth);
y := Random(ClientHeight);
Canvas.Ellipse(x, y, x+100, y+100);
Shift: TShiftState; X, Y: Integer);
begin
form1.Canvas.Ellipse(100, 100, 200, 200);
sleep(5467);
Canvas.Fillrect(canvas.cliprect);
form1.Canvas.Ellipse(200, 200, 300, 300);
end;
end.