Фигура не поворачивает на клавишах!

[heavenly]

Здравствуйте! Я построил трехугольную пирамиду - она у меня поворачивается вокруг только на кнопку, по которой Я тыкаю мышкой! а мне препод сказал сделать на кнопки лево-право-верх-низ! Я все написал правильно - работает без ошибок - но не поворачивается((( на левую кнопку поставил "Закрыть окно" - дак и то не закрывается! почему кнопки не определяются- что не так ????

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  T3DPoint = record
    x, y, z: Extended;
  end;
  TForm1 = class(TForm)
    Puramud: TButton;

   // Кнопки !!!
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);

    procedure PuramudClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i:integer;
  teta, phi: real;
  dx, dy:real;
  w: array [1..8] of T3DPoint;	//мировые (world) координаты вершин
  v: array [1..8] of TPoint;	//видовые (view) координаты вершин
implementation
{$R *.dfm}
  procedure Line(a: TPoint; b: TPoint);
  begin
  with form1.Canvas do
    begin
      moveto(a.X,a.Y);
      lineto(b.X,b.Y);
    end;
  end;

  procedure PuramudA(col:TColor);
  begin
  Form1.Canvas.Pen.Color:=col;
  Form1.Canvas.pen.Width:=3;
  Line(v[2],v[7]);
  Line(v[2],v[8]);
  Line(v[6],v[8]);
  Line(v[6],v[7]);
  Line(v[7],v[8]);
  Line(v[2],v[6]);
  end;

 // Кнопки !!!
 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
  case Key of
   vk_Left: Form1.Close();            //teta := teta - 0.05;
    vk_Up: phi := phi - 0.05;
    vk_Right: teta := teta + 0.05;
    vk_Down: phi := phi + 0.05;
    end;
  end;

procedure TForm1.PuramudClick(Sender: TObject);
begin
PuramudA(Form1.Color);
  w[6].x :=  100;
  w[6].y := -100;
  w[6].z :=  100;
  w[7].x :=  100;
  w[7].y :=  100;
  w[7].z :=  100;
  w[8].x := -100;
  w[8].y :=  100;
  w[8].z :=  100;
  for i := 1 to 8  Do
  begin
    v[i].x := Round(
              w[i].x*(-sin(teta)) +
              w [i].y*( cos(teta))) + Form1.Width div 2;
    v[i].y := Round(
              w[i].x*(-cos(phi) * cos(teta)) -
              w[i].y*( cos(phi) * sin(teta)) +
              w[i].z*( sin(phi))) + Form1.Height div 3;
  end;
  PuramudA(clBlack);
  teta:=teta+0.2;
  phi:=phi+0.2;
end;
end.

[alexBlack]

Или уберите с формы кнопку Puramud
Или сделайте From1.KeyPreview := true и обработчик FormKeyUp вместо KeyDown.

[mihali4]

Ну, дык, немудрено... Где в FormKeyDown вызов процедуры поворота?
Хотя бы в таком виде:
PuramudClick(Self);
И самое главное - в свойствах формы кто будет устанавливать KeyPreview=True?

уберите с формы кнопку Puramud

???

FormKeyUp вместо KeyDown

??? Какая разница-то?

[alexBlack]

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

??? Какая разница-то?

А разница есть. Не понял из кода VCL почему (да особо и не копался), но если вот этот код

   case Key of
    vk_Left: Close();
    vk_Up: label1.Caption := 'up';
    vk_Right: label1.Caption := 'right';
    vk_Down : label1.Caption := 'down';
   end;

поместить в FormKeyUp, то в label1 будет меняться текст. Если обработчик повесить на FormKeyDown и на форме есть TButton, вызовов не будет. (KeyPreView=true в обеих случаях) При отсутствии TButton оба метода вызываются. Может это особенность VCL Turbo Delphi ?.

А если на форме нет компонентов, то и KeyPreView не нужно делать true - вызовы KeyDown и так будут. Поэтому я и посоветовал убрать TButton с формы.

[mihali4]

А-а-а... Пардон. Тогда вам виднее, конечно. У меня 7-ка.
Хотя мне кажется, что это просто глюкавая установка.
Во всяком случае, когда я испытывал Turbo Delphi в течение недели, никаких "чудес" по сравнению с 7-ой не приметил.

[heavenly]

изменил FormKeyDown на FormKeyUp, убрал кнопку Button с формы, куда именно писать в коде

KeyPreview: =True;

- Я не знаю !!! и надо ли писать PuramudClick(Self); и если да - то куда тоже ?? У меня ничего не получается- не знаю что делать ((

[mihali4]

куда именно писать в коде
Код:

KeyPreview: =True;

- Я не знаю !!! и надо ли писать PuramudClick(Self); и если да - то куда тоже ?? У меня ничего не получается

Самый правильный выход - обратиться к тому, кто писал эту программу. Только не надо

Я построил трехугольную пирамиду - она у меня поворачивается

это явно не вы писали, иначе бы такое не спрашивали...

[heavenly]

но ведь не трудно наверное помочь мне и разобраться !!! (((

[JamS007]

heavenly

Если Вы используете Delphi 2007 и технологию Copy & Pust (точнее сказать просто создали одну кнопку, написали для неё код, а потом скопировали, и сделали ещё несколько экземпляров), то в этой среде есть такой глюк, что кнопки перестают реагировать на обработчики событий. В таком случае надо будет начинать новый проект с ноля.