[lmikle]

Головой подумать. Ну сколько можно тупить???

ЗЫ. Исходник я, конечно, поправил

[Spam]

я не умею.... помоги

[Spam]

извини что туплю, куча курсовых нада делать, но не пашет и все

[lmikle]

Учись, студент!
(с) приключения Шурика.

Еще раз глянь исходник.
Я же сказал, что поправил.

[Spam]

я новый скрпировал, все равно пустая форма

[lmikle]

Значит что-то не так сделал.
Проверь все назначенные обработчики.
Возможно, забыл главный обработчик - у PaintBox.

[Spam]

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
DrawStar(FAngle);
end;

[Spam]

я не вижу, так все скопировал

[Spam]

а почему ты ето в привате описал оно же не будет использоватся

FAngle : Integer;
procedure DrawStar(Angle : Integer);

[Spam]

здаюсь, я не вижу в чем проблема

[Spam]

??????????????????????????????????????

[AND_REY]

Вот исходник вышеприведенного кода. Просто вкинул в Delphi7 всё нормально работает.
Star.rar

[nwm]

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

Вот исходник вышеприведенного кода. Просто вкинул в Delphi7 всё нормально работает.
Вложение 1152

Наверное просто аккуратно вкинул

[NIch]

2 AND_REY всё работает, круто)))
Может Spam хоть спасибо скажет...