Delphi / new form on button click

Delphi / new form on button click 29.11.2011. u 08:51 · pre 181 mesec #1

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

Re: Delphi / new form on button click 29.11.2011. u 18:37 · pre 181 mesec #2

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

Re: Delphi / new form on button click 01.12.2011. u 00:28 · pre 181 mesec #3

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

Re: Delphi / new form on button click 01.12.2011. u 08:04 · pre 181 mesec #4

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.

Re: Delphi / new form on button click 01.12.2011. u 08:08 · pre 181 mesec #5

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"...

Re: Delphi / new form on button click 01.12.2011. u 14:45 · pre 181 mesec #6

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.

Forum kao aplikacija na telefonu

Srodne teme