Скорость реакции

[li6051]

Serge_Bliznykov, Спасибо! Все у меня получилось! С помощью GetTickCount и глобальных переменных! Ну, я и тормоз! Меня прямо озарило сегодня с утра, что нужно использовать глобальные переменные, а не локальные!

[Serge_Bliznykov]

пожалуйста, конечно... ;-)
И я рад, что у Вас всё получилось!

справедливости ради замечу, что моей тут заслуги особой нет - Лубышев ещё в посте #2 сказал:

Сообщение от Лубышев

Ну чтобы опредилить разницу можно обьявить глобальную переменную.

И ещё Вы явно хотели поблагодарить Лубышева,Arkuz, AVer и Sibedir... :-)

[li6051]

И ещё Вы явно хотели поблагодарить Лубышева,Arkuz, AVer и Sibedir... :-)

Конечно! Ребята СПАСИБО огроменное, еще раз!

[li6051]

У меня новая проблема!
Нужно, чтобы появлялась не конкретная фигура, а произвольная, т.е в моей программе вначале появляется красный прямоугольник, затем при нажатии "ок", появляется зеленый треугольник, снова "ок" и появляется желтый квадрат, а надо, чтобы при нажатии "ок" появилась произвольная фигура, произвольного цвета!
И конечно же у меня ничего не выходит=(
Пытаюсь изначально при обьявлении процедуры

procedure GeometrFig(Canvas:TCanvas; Points: array of TPoint; ColorFig: TColor);

Задать, что это за фигура, т.е после

begin
 Canvas.Brush.Color := ColorFig;
 Canvas.Polygon(Points);

пишу

Points[0].X := 700;
 Points[0].Y := 700;
 Points[1].X := 200;
 Points[1].Y := 700;
 Points[2].X := 200;
 Points[2].Y := 200;
 Points[3].X := 700;
 Points[3].Y := 200;

И при нажатии "ок" вызываю эту процедуру

procedure TForm1.bbRunClick(Sender: TObject);

begin
 GeometrFig(Canvas, Points, clRed);
end;

но фигура тогда не появляеться!
Как же мне быть? Хотел сначала обьявить процедуры "рисования" различных геометрических фигур, а потом при нажатии кнопки, вызывать их и с помощью Random как-нибудь добиться, чтобы вызывалась случайным образом одна из этих фигур!

[Sibedir]

Во-первых, новый вопрос - новая тема. Почему не читаем правила форума.
Во-вторых, вот пример:
Случайная фигура.zip

[Sibedir]

Вот примерно как хотели решить вы:
Случайная фигура 2.zip
но немножко по-моему.

А писать

Points[0].X := 700;
Points[0].Y := 700;
Points[1].X := 200;
Points[1].Y := 700;
Points[2].X := 200;
Points[2].Y := 200;
Points[3].X := 700;
Points[3].Y := 200;

нужно как раз до

Canvas.Polygon(Points);

[li6051]

Sibedir, Спасибо, Вам большое! Благодаря Вам всё получилось!