[vers0]

Создал проект, в котором на Form1 имеется 4 Panel с картинками. Перемещение между ними происходит только клавишами (стрелками) на клавиатуре, при нажатии Enter'a на определенной картинке запускается другая форма (картинка 1 запускает Form2, 2 - Form3 и т.д.).

На второй форме так же навигация происходи только при помощи клавиатуры (стрелки и Enter, закрытие по Esc). Проблема возникла со второй формой (Form2, с остальными пока еще не работал), т.к. не обрабатывается KeyDown на ней, только на главной форме (Form1).

Подскажите, пожалуйста, где ошибка или как лучше сделать? По отдельности каждая форма работают нормально, как только объединяю их в один проект - проблемы с дочерними формами (при старте они не создаются, а лишь, при вызове).

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls, Unit2, Unit3, Unit4, Unit5;   type   TForm1 = class(TForm)     Panel1: TPanel;     Panel2: TPanel;     Panel3: TPanel;     Panel4: TPanel;     Image1: TImage;     Image2: TImage;     Image3: TImage;     Image4: TImage;     procedure FormKeyDown(Sender: TObject; var Key: Word;       Shift: TShiftState);     procedure FormCreate(Sender: TObject);     procedure ImgTrue(Sender: TObject);   private     { Private declarations } public     { Public declarations } end;   var   Form1: TForm1;   i:Integer;   implementation   {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject);   var j:integer;   begin     i:=1;     //загрузка изображений в компоненты     for j:=1 to 4 do TImage(FindComponent('Image'+IntToStr(j))).Picture.LoadFromFile('name'+IntToStr(j)+'.bmp');   end;   procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);   begin     case key of     VK_LEFT:       begin       Dec(i);       if i<1 then i:=4;       ImgTrue(Sender);       end;     VK_RIGHT:       begin       Inc(i);       If i>4 then i:=1;       ImgTrue(Sender);       //Image1.Picture.Bitmap.LoadFromFile('name'+IntToStr(i)+'.bmp');       end;     VK_RETURN:       begin       if i=1 then         begin         if (not Assigned(Form2)) then         Form2:=TForm2.Create(Self);         Form2.Show;         end;         if i=2 then         begin         if (not Assigned(Form3)) then         Form3:=TForm3.Create(Self);         Form3.Show;         end;         if i=3 then         begin         if (not Assigned(Form4)) then         Form4:=TForm4.Create(Self);         Form4.Show;         end;                 if i=4 then         begin         if (not Assigned(Form5)) then         Form5:=TForm5.Create(Self);         Form5.Show;         end;       end;     end;   end;   procedure TForm1.ImgTrue(Sender: TObject);   var j:integer;   begin   for j:=1 to 4 do   TPanel(FindComponent('Panel'+IntToStr(j))).BevelOuter:=bvRaised;   TPanel(FindComponent('Panel'+IntToStr(i))).BevelOuter:=bvLowered;   end;   end.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80

unit Unit2;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls, jpeg, ComCtrls, ShellAPI, MMSystem;   type   TForm2 = class(TForm)     lbl1: TLabel;     lbl2: TLabel;     img3: TImage;     img4: TImage;     tmr1: TTimer;     procedure FormCreate(Sender: TObject);     procedure Form2KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);     procedure tmr1Timer(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form2: TForm2;   p,a:Integer; implementation   {$R *.dfm}   procedure TForm2.FormCreate(Sender: TObject); begin p:=0; a:=1; img3.Picture.Bitmap.LoadFromFile('Pictures\name.bmp'); Form2.DoubleBuffered:=true; end;   procedure TForm2.Form2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin   case key of   VK_RIGHT:     begin     a:=1;     p:=p+a;     if p=66 then     p:=1;     if p=0 then     p:=65;      sndPlaySound('next.wav',SND_ASYNC);     img3.Picture.Bitmap.LoadFromFile('Pictures\name'+IntToStr(p)+'.bmp');     end;   VK_LEFT:     begin     a:=-1;     p:=p+a;     if p=66 then     p:=1;     if p<=0 then     p:=65;      sndPlaySound('next.wav',SND_ASYNC);     img3.Picture.Bitmap.LoadFromFile('Pictures\name'+IntToStr(p)+'.bmp');     end;   VK_RETURN:     begin     ShellExecute(Handle, nil, PChar('Games\game'+IntToStr(p)+'.nes'), nil, nil, SW_SHOWNORMAL);     end;   VK_ESCAPE:     begin     Form2.Close;     end;     end;     lbl1.Caption:=('Game '+inttostr(p)+' of 65'); end; procedure TForm2.tmr1Timer(Sender: TObject); begin lbl2.Caption:=TimeToStr(Now); end; end.

[poli-smen]

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

Создал проект, в котором на Form1 имеется 4 Panel с картинками. Перемещение между ними происходит только клавишами (стрелками) на клавиатуре, при нажатии Enter'a на определенной картинке запускается другая форма (картинка 1 запускает Form2, 2 - Form3 и т.д.).

На второй форме так же навигация происходи только при помощи клавиатуры (стрелки и Enter, закрытие по Esc). Проблема возникла со второй формой (Form2, с остальными пока еще не работал), т.к. не обрабатывается KeyDown на ней, только на главной форме (Form1).

У меня нормально обрабатываются KeyDown и во второй форме.
Только несколько замечаний.
Вот здесь:

Код:

1 2	var   Form2: TForm2;

сделай так:

Код:

1 2	var   Form2: TForm2 = nil;

Так же сделай и в других формах которые автоматически не создаются.

И ещё убери упоминание Form2 вот здесь:

Код:

1 2 3 4 5 6 7

procedure TForm2.FormCreate(Sender: TObject); begin   p := 0;   a := 1;   img3.Picture.Bitmap.LoadFromFile('Pictures\name.bmp');   Form2.DoubleBuffered := true; end;

[vers0]

За замечания спасибо.
Вообще мистика какая-то...даже

Код:

1	lbl2.Caption:=TimeToStr(Now);

не отрабатывает на второй форме Переустановка Delphi не помогла, все как и прежде - по отдельности работают, вместе не хотят.

Может подскажите где могут быть ошибки именно по формам, их иерархии, расположении в проекте и т.д. (подойдут все возможные варианты)?

[poli-smen]

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

За замечания спасибо.

После устранения замечаний всё равно не работает?

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

Вообще мистика какая-то...даже

Код:

не отрабатывает на второй форме Переустановка Delphi не помогла, все как и прежде - по отдельности работают, вместе не хотят.

Я вчера код который ты привёл у себя пробовал - у меня всё работало. Сейчас новый проект создал с твоим исходным кодом - опять всё нормально работает.

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

Может подскажите где могут быть ошибки именно по формам, их иерархии, расположении в проекте и т.д. (подойдут все возможные варианты)?

К сожалению ясновидением я не наделён. Могу разве что попытаться угадать: раз события (таймер, клавиши) не работают, то скорее всего у тебя просто не привязаны обработчики событий к компонентам (через инспектор объектов). Угадал?

[vers0]

После устранения - не работает.

скорее всего у тебя просто не привязаны обработчики событий к компонентам (через инспектор объектов). Угадал?

Object Inspector -->Events для Image и Label нет обработчиков, точно, но их и не должно быть по идее.
Спасибо хоть за какую-то помощ, будем искать...

[poli-smen]

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

Object Inspector -->Events для Image и Label нет обработчиков, точно, но их и не должно быть по идее.

Так а причём тут Image и Label? Для срабатывания на второй форме горячих клавиш должно быть привязано событие OnKeyDown формы, а для срабатывания таймера должно быть привязано событие OnTimer таймера.

[vers0]

Сообщение от poli-smen

Так а причём тут Image и Label? Для срабатывания на второй форме горячих клавиш должно быть привязано событие OnKeyDown формы, а для срабатывания таймера должно быть привязано событие OnTimer таймера.

Дай-ка я тебя расцелую тупанул так тупанул...спасибо за наставление