delphi - 同じ量のコードを追加せずにフォームにオブジェクトを追加する方法

Question

趣味で小さなゲームを作っています。このゲームでは、あなたはオブジェクト (パネル) にレーザービーム (形状) を発射する小さな宇宙船 (画像) です。現時点では、レーザービーム (形状) が 1 つしかなく、発射するオブジェクト (パネル) が 1 つしかないため、一度に 1 つのレーザービームしか発射できません。したがって、私が持っているコーディングを使用して、レーザービームとオブジェクト、特にレーザービームを追加する方法を知りたいと思います。レーザービームごとおよびパネルごとに手順を繰り返したくないからです。

これがコードです。

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, jpeg;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Timer1: TTimer;
    Timer2: TTimer;
    Button1: TButton;
    Shape1: TShape;
    Timer3: TTimer;
    Image1: TImage;
    procedure Timer2Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
      MousePos: TPoint; var Handled: Boolean);
    procedure Timer3Timer(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
   procedure StartPanelAnimation1;
   procedure DoPanelAnimationStep1;
   function  PanelAnimationComplete1: Boolean;
   procedure Startlazeranimation1;
   procedure DolazeranimationStep1;
   { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 var key : char;
{$R *.dfm}

{ TForm1 }



{ TForm1 }

procedure TForm1.DoPanelAnimationStep1;
begin
Panel1.Top := Panel1.Top+1;
end;

function TForm1.PanelAnimationComplete1: Boolean;
begin
 Result := Panel1.Top=512;
end;

procedure TForm1.StartPanelAnimation1;
begin
  Panel1.Top := 0;
  Timer1.Interval := 1;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 DoPanelAnimationStep1;
  if PanelAnimationComplete1 then
    StartPanelAnimation1;
   if (shape1.Top < panel1.Top) and (shape1.Left < panel1.Left+104) and (shape1.Left > panel1.Left)   then
   begin
    startpanelanimation1;
   sleep(10);
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 button1.Hide;
  key := 'a';
  timer2.Enabled := true;
  StartPanelAnimation1; 
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 shape1.Visible := false;
 timer3.Enabled := false;
 timer2.Enabled := false;
 end;

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
   begin
image1.Left := image1.Left-10;
end;

 procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
    begin
  image1.Left := image1.Left+10;
end;

procedure TForm1.DolazeranimationStep1;
begin
 shape1.Top := shape1.Top-10;
end;


 procedure TForm1.Startlazeranimation1;
 begin
 shape1.Top := image1.Top;
 shape1.Left := image1.Left+55;
 shape1.Visible := true;
  Timer3.Interval := 1;
  Timer3.Enabled := True;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
var k : integer;
begin
 DolazeranimationStep1;
  if (shape1.Top < panel1.Top) and (shape1.Left < panel1.Left+104) and (shape1.Left > panel1.Left) or         (shape1.Top=clientheight) then
   begin
    timer3.Enabled := false;
    shape1.Visible := false;
    for k := 1 to 5 do
    sleep(1);
    begin
    application.ProcessMessages;
    end;
    shape1.Top := 0;
    shape1.Left := 0;
   end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 shape1.Show;
 startlazeranimation1;
end;

end.

(上記は旧コードです)

Stijn Sanders が提案したことを成功裏に実行しました。でも今ならこれで

 if (Shape1.top < panel1.Top) and (shape1.Left < panel1.Left+104) and (shape1.Left > panel1.Left)   then

shape1 が panel1 を通過することはなく、クリック時に作成された形状のみがパネルを通過するため、 never は true をテストしません。

形状が頂点にあるかどうかをテストする別の方法があります。

score 5 · Accepted Answer

設計時にすべてのコンポーネントを作成する必要はありません。実行時に、たとえば TTimer とそのイベントを使用TShape.Create(Self);して、追加の形状を呼び出すことができます。結果の値への参照を（動的）配列などの便利な場所に保持し、この新しいコントロールをいつどこに表示するかをシステムが認識できるようMyShape.Parent:=Self;に設定することを忘れないでください。MyShape.Parent:=Panel1;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

const
  MaxRays=100;
  RayStep=8;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    Rays:array[0..MaxRays-1] of TShape;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to MaxRays-1 do Rays[i]:=nil;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  i:integer;
begin
  i:=0;
  while (i<MaxRays) and (Rays[i]<>nil) do inc(i);
  if i<MaxRays then
   begin
    Rays[i]:=TShape.Create(Self);
    Rays[i].Shape:=stEllipse;
    Rays[i].Pen.Color:=clRed;
    Rays[i].Pen.Style:=psSolid;
    Rays[i].Brush.Color:=clYellow;
    Rays[i].Brush.Style:=bsSolid;
    Rays[i].SetBounds(X-4,Y-20,9,41);
    Rays[i].Parent:=Self;
   end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to MaxRays-1 do
    if Rays[i]<>nil then
    begin
      Rays[i].Top:=Rays[i].Top-RayStep;
      if Rays[i].Top<0 then FreeAndNil(Rays[i]);
    end;
end;

end.

score 1 · Accepted Answer

実行時にオブジェクトを動的に作成し、それらをリストで追跡すると、必要に応じてリストをループできます。

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls, StdCtrls, jpeg; 

type 
  TForm1 = class(TForm) 
    PanelTimer: TTimer; 
    Button1: TButton; 
    LazerTimer: TTimer; 
    Image1: TImage; 
    procedure PanelTimerTimer(Sender: TObject); 
    procedure Button1Click(Sender: TObject); 
    procedure FormCreate(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
    procedure FormActivate(Sender: TObject); 
    procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState; 
      MousePos: TPoint; var Handled: Boolean); 
    procedure FormMouseWheelUp(Sender: TObject; Shift: TShiftState; 
      MousePos: TPoint; var Handled: Boolean); 
    procedure LazerTimerTimer(Sender: TObject); 
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton; 
      Shift: TShiftState; X, Y: Integer); 
  private 
    { Private declarations } 
    Lazers: TList; 
    Panels: TList; 
    procedure StartPanelAnimation;
    procedure StartLazerAnimation; 
  public
    { Public declarations } 
  end; 

var 
  Form1: TForm1; 

implementation 

{$R *.dfm} 

{ TForm1 } 

procedure TForm1.StartPanelAnimation; 
var
  Panel: TPanel;
begin 
  Panel := TPanel.Create(Self);
  Panel.Parent := Self;
  Panel.Top := 0;
  // set other Panel properties as needed... 
  Panel.Visible := True; 
  Panels.Add(Panel);
  if not PanelTimer.Enabled then
  begin
    PanelTimer.Interval := 1; 
    PanelTimer.Enabled := True; 
  end;
end; 

procedure TForm1.PanelTimerTimer(Sender: TObject); 
var
  k: Integer;
  Panel: TPanel;
begin 
  for k := 0 to Panels.Count-1 do
  begin
    Panel := TPanel(Panels[k]);
    Panel.Top := Panel.Top + 1; 
    if Panel.Top = 512 then 
      Panel.Top := 0;
  end;
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  StartPanelAnimation1;  
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Lazers := TList.Create;
  Panels := TList.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  Lazers.Free;
  Panels.Free;
end;

procedure TForm1.FormActivate(Sender: TObject); 
begin 
  PanelTimer.Enabled := False; 
  LazerTimer.Enabled := False; 
end; 

procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState; 
  MousePos: TPoint; var Handled: Boolean); 
begin 
  Image1.Left := Image1.Left - 10; 
end; 

procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState; 
  MousePos: TPoint; var Handled: Boolean); 
begin 
  Image1.Left := Image1.Left + 10; 
end; 

procedure TForm1.StartLazerAnimation; 
var
  Lazer: TShape;
begin 
  Lazer := TShape.Create(Self);
  Lazer.Parent := Self;
  // set Lazer properties as needed...
  Lazer.Top := Image1.Top; 
  Lazer.Left := Image1.Left + 55; 
  Lazer.Visible := True; 
  Lazers.Add(Lazer);
  if not Lazer.Enabled then
  begin
    Lazer.Interval := 1; 
    Lazer.Enabled := True; 
  end;
end; 

procedure TForm1.LazerTimerTimer(Sender: TObject); 
var
  k, m : integer;
  Lazer: TShape;
  Panel: TPanel;
  PanelHit: Boolean; 
begin 
  k := 0;
  while k < Lazers.Count do
  begin
    Lazer := TShape(Lazers[k]);
    Lazer.Top := Lazer.Top - 10; 
    for m := 0 to Panels.Count-1 do
    begin        
      Panel := TPanel(Panels[m]);
      PanelHit := (Lazer.Top > (Panel.Top+Panel.Height)) and (Lazer.Left > Panel.Left) and (Lazer.Left < (Panel.Left+Panel.Width));
      if PanelHit then
      begin
        Panels.Remove(Panel);
        Panel.Free;
        if Panels.Count = 0 then
          PanelTimer.Enabled := False;
        Break;
      end;
    end;
    if PanelHit or (Lazer.Top = 0) then 
    begin 
      Lazers.Remove(Lazer);
      Lazer.Free;
      if Lazers.Count = 0 then
        LazerTimer.Enabled := False; 
    end else
      Inc(k); 
  end;
end; 

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  StartLazerAnimation; 
end; 

end.

delphi - 同じ量のコードを追加せずにフォームにオブジェクトを追加する方法

2 に答える 2

Related

Reference