[es] - Delphi / new form on button click

brzibrzi16
virtual world

Član broj: 96710
Poruke: 5
*.stat.customer.blic.net.

Profil

^{29.11.2011. u 07:51 - pre 150 meseci}

Možete li mi pomoći, i reći šta da ubacim u code onbuttonclick da bi se otvorila nova forma...

Na jednoj osnovnoj formi, imam samo button, i klikom na taj da se otvara još jedna forma, mislim da ste shvatili.
Pozz

Odgovor na temu

salaczr

Član broj: 160654
Poruke: 103
*.dynamic.isp.telekom.rs.

+5 Profil

Re: Delphi / new form on button click

^{29.11.2011. u 17:37 - pre 150 meseci}

http://delphi.about.com/od/adptips2005/qt/nilselfapp.htm

Odgovor na temu

Aleksandar Đokić

Član broj: 13478
Poruke: 4793
*.dynamic.isp.telekom.rs.

+638 Profil

Re: Delphi / new form on button click

^{30.11.2011. u 23:28 - pre 150 meseci}

da li ti je bitno da uvek bude ista forma, ili na svaki klik da bude nova?

Odgovor na temu

brzibrzi16
virtual world

Član broj: 96710
Poruke: 5
*.stat.customer.blic.net.

Profil

Re: Delphi / new form on button click

^{01.12.2011. u 07:04 - pre 150 meseci}

Bilo mi je bitno da nakon jednog klika na button, otvori se nova forma, što je i postignuto.Konkretan primjer:

Code:

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
   myForm : TForm;
begin
   myForm := TForm.Create(nil) ;
   try
     myForm.ShowModal;
   finally
     myForm.Free;
   end;
end;
end.

Odgovor na temu

brzibrzi16
virtual world

Član broj: 96710
Poruke: 5
*.stat.customer.blic.net.

Profil

Re: Delphi / new form on button click

^{01.12.2011. u 07:08 - pre 150 meseci}

Da li imate ideju, kako da u formi koja ima recimo 30setak buttona koji predstavljaju, sjedišta ili bilo šta, da jednom klikom postane zeleno, drugim, crveno, a trećim, da se vrati u prvobitno stanje boje, a ako ostane zeleno, da se pojavi opcija da se unese neki tekst i sačuva, kao rezervacija, a crvenim da ima opcija da prikaže cijenu, tj. ako je obilježeno više njih crvenim da prikaže sumu cijena za tri "sjedišta"...

Odgovor na temu

reiser

Član broj: 7895
Poruke: 2314

+102 Profil

Re: Delphi / new form on button click

^{01.12.2011. u 13:45 - pre 150 meseci}

Mozes koristiti .Tag property buttona recimo:

Code:

procedure TButton.OnClick(Sender : TObject);
begin
  Button.Tag := Button.Tag + 1;
  Case Button.Tag of
    1 : Button.Color := clGreen;
    2 : Button.Color := clRed;
    3 : Begin
          Button.Color := DEFAULT_COLOR;
          Button.Tag := 0;
        End;
  end;
end;

Kako bi izbrojao koliko crvenih buttona imas na formi, treba ti nesto ovako:

Code:

function Buttons_CountForColor(const AColor : TColor) : Integer;
var
  C1 : Integer;
begin
  result := 0;
  For C1 := 0 to Form.ComponentCount - 1 Do
    If (Form.Component[C1].InheritsFrom(TButton)) and
       (TButton(Form.Component[C1]).Color = AColor) Then
      Inc(result);
end;

..i onda prosledis ovoj funkciji boju koju hoces, recimo Buttons_CountForColor(clRed) i ona ti vrati broj crvenih dugmica. Pisao sam kodove iz glave, sorry na losem formatiranju.

Odgovor na temu