Názory ke článku Delphi - 8. lekce – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama
Reklama

Názory ke článku Delphi - 8. lekce – Programujte.comNázory ke článku Delphi - 8. lekce – Programujte.com

 

Názory ke článku Delphi - 8. lekce

dalaman   NOVÝ
4. 8. 2005

Ahoj.V delphi nie som uplny zaciatocnik a myslim si ze tato hra je skvelim prikladom zaciatku programovania v delphi. Ak ste pozorne citali predchadzajuce lekcie tak mozete z toho spravit nadupany prvy program. programujte.com sa mi fakt paci

Anonymní uživatel   NOVÝ
13. 3. 2007

skoda ze chybaju obrazky

janahorova   NOVÝ
20. 4. 2008

zrovna tenhle navod je trochu divmý a neprisla jsem na to kde delam chybu:undeclared identifer "zrout"

Vláďa Dacos   NOVÝ
21. 8. 2009

Reagoval na komentář od uživatele janahorova :
Zkus napsat Form1.zrout

Ondra   NOVÝ
3. 4. 2012

Toto je výborný příklad pro začátečníky. Já jsem začátečník vytvořil jsem tuhle hru i s časovačem a laserem. Snažím se tam ale přidat protivníka, který vás honí (viz. úkol na konci) a nedaří se mi. Funkci INTERSECTRECT() jsem zvládl, na tomto způsobu mi funguje i laser. Nedaří se mi rozpohybovat protivníka tak, aby šel po částech za vámi, udělám třeba to, že po nějakém časovém limitu po vás skočí, ale já chci aby postupně se posouval. Už jsem z toho zoufalí, pokud někdo víte jak to udělat prosím nápovědu na email ondra.mares@email.cz  

Sarkany   NOVÝ
23. 8. 2012

zdar ve spolek by mě zajímalo jak otevřít tu jeho zracku v delphi7
mě to nejde a rád bych se podíval jak to má být.

Timco   NOVÝ
9. 11. 2014

ahojte, co tu mam prosim vas zle? (mail : timco.vanco@gmail.com)

unit Zrout;

interface

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

type
  TForm1 = class(TForm)
  pole = array[1..X] of TRadioButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    zrout: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    Timer1: TTimer;
    Timer2: TTimer;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  jedlo: pole;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
zrout.Top := zrout.Top - 5;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
zrout.Top := zrout.Top + 5;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
zrout.Left := zrout.Left - 5;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
zrout.Left := zrout.Left + 5;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if zrout.Caption = '-' then
   zrout.Caption := '<'
else
   zrout.Caption :='-';
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  jedlo[1] := RadioButton1;
  jedlo[2] := RadioButton2;
  jedlo[3] := RadioButton3;
  jedlo[4] := RadioButton4;
  jedlo[5] := RadioButton5;
  jedlo[6] := RadioButton6;
  jedlo[7] := RadioButton7;
  jedlo[8] := RadioButton8;
  jedlo[9] := RadioButton9;
  jedlo[10] := RadioButton10;
  jedlo[11] := RadioButton11;
  jedlo[12] := RadioButton12;
  jedlo[13] := RadioButton13;
end;

end.

procedure TForm1.zrani;
var
bod: Tpoint;
i: integer;
vysbiral: boolean;
begin
  vysbiral := True;
  for i := 1 to 13 do
    begin
      Bod.X := jidlo[i].Left + (jidlo[i].width div 2);
      Bod.Y := jidlo[i].Top + (jidlo[i].Height div 2);
 

      if PtInRect(zrout.BoundsRect,bod) then
        jidlo[i].Visible := false;

      if jidlo[i].Visible = True then
        vysbiral := False;
    end;
 

  if vysbiral = True then
Close();


end;

Přidej svůj názor

×Vložení zdrojáku

×Vložení obrázku

Vložit URL obrázku Vybrat obrázek na disku
Vlož URL adresu obrázku:
Klikni a vyber obrázek z počítače:
 
Podporujeme Gravatara.
Zadej URL adresu Avatara (40 x 40 px) nebo e-mailovou adresu pro použití Gravatara.
Email nikam neukládáme, po získání Gravatara je zahozen.
-
Reaguješ na příspěvek:
Pravidla pro psaní příspěvků, používej diakritiku. ENTER pro nový odstavec, SHIFT + ENTER pro nový řádek.
Sledovat nové názory e-mailem (pouze pro přihlášené)
Sleduj názory ke článku a v případě přidání nového příspěvku o tom budeš vědět mezi prvními.



Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032016 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý