[delphi] Otevreni formu

C++, C#, Visual Basic, Delphi, Perl a ostatní

Moderátor: Moderátoři Živě.cz

Odeslat příspěvekod xyz.007 25. 5. 2007 15:14

Ahoj, potrebuju vedet jak v delphi ( http://www.lazarus.freepascal.org/ ) otevrit ze stavjiciho formu po kliknuti na talcitko novy form. Nevite nekdo?
xyz.007
Junior

Odeslat příspěvekod HiroSK 25. 5. 2007 15:20

Pridaj do eventu OnClick:

var
NewForm: TNewForm;

begin
NewForm := TNewForm.Create (Application);
NewForm.Show;
AMD Athlon 64 X2 4200+, 4x1GB DDR II 800MHz, Asus M2N-E 570Ultra, Creative X-Fi Fatality, Asus 8600GT, Seagate 750+320+200+120GB
Thermaltake MatrixVX VD3000BWA, Asus A-45GA 450W, Scythe SCKM-1000, Noctua NH-U12F
Samsung 226BW, Logitech G15 + G5
HiroSK
Junior
Uživatelský avatar

Odeslat příspěvekod xyz.007 25. 5. 2007 15:33

Diky, funguje to.

Kód: Vybrat vše
procedure TForm1.Button1Click(Sender: TObject);
var
NewForm: TForm;

begin
NewForm := TForm.Create (Application);
NewForm.Show;
end;     
xyz.007
Junior

Odeslat příspěvekod xyz.007 25. 5. 2007 15:41

Jeste 1 dotaz: mam Form1 a Form2. Na Form1 Button. Co mam dat do toho Buttonu aby se mi zobrazil Form2?
xyz.007
Junior

Odeslat příspěvekod JanFiala 25. 5. 2007 16:52

Ten samy kod, jen tam zamenis jmeno a tridu formulare
Co můžeš udělat dnes, odlož na včerejšek
JanFiala
Expert
Uživatelský avatar

Odeslat příspěvekod xyz.007 25. 5. 2007 16:54

Muze s me dat ukazku kodu? Ja jsem zacatecnik.
xyz.007
Junior

Odeslat příspěvekod JM 25. 5. 2007 16:56

Kód: Vybrat vše
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;
JM
Junior
Uživatelský avatar

Odeslat příspěvekod xyz.007 25. 5. 2007 17:08

Vypise to:
Kód: Vybrat vše
Error: Indentifier not found "TForm2"


Unit1.pas
Kód: Vybrat vše
unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{ TForm1 }

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

initialization
  {$I unit1.lrs}

end.   

Unit2.pas
Kód: Vybrat vše
unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs;

type
  TForm2 = class(TForm)
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form2: TForm2;

implementation

initialization
  {$I unit2.lrs}

end.

xyz.007
Junior

Odeslat příspěvekod JanFiala 25. 5. 2007 19:34

xyz.007 píše:Vypise to:
Kód: Vybrat vše
Error: Indentifier not found "TForm2"



Samozrejme, protoze jsi nepridal Form2 do USES v unite, ze ktere ji chces volat.
Velice silne ti doporucuji seznamit se s uplnymi zaklady jazyka Object Pascal. Aspon si precti serial, ktery vychazel na Zive.

Potreboval bych rozebrat motor auta. Ale jsem zacatecnik. Vidim tam takova kolecka s drazkou, ktera to drzi pohromade. Jak je mam oddelat? Jo a jsou tam taky nejake hadicky...
Co můžeš udělat dnes, odlož na včerejšek
JanFiala
Expert
Uživatelský avatar


Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 0 návštevníků