Vytvorenie tlacitka za behu programu – Delphi – Fórum – Programujte.com

Takze ako hovori napis ako vytvorim tlacitko za behu program . Za a) poprosim nedavat nejake stupidne odkazy na rozne priklady ktore su absolutne nepouzitelne ja chcem iba jedno tlacidlo vytvorit a nie kilometrovy kod ktory ich bude posuvat nahodne umiestnovat atd.... Ten tutorial co je tu je absolutne nepouzitelny .

nadefinovani typu:

var  b: TButton;

  b := TButton.Create(nil);

  b.ParentWindow := Form1.WindowHandle;

  b.Left := 50;

  b.Top := 60;

  b.Width:=30;

  b.Height:=20;

  b.Caption:='asdfas';

  b.Show;

To KIIV : pise ze :Undeclared identifier TButton

a co mas za delphi? mas tam spravny unity? zkousel si tam vubec rozbehat nejake tlacitko?

To KIIV : Jasne Tlacitka Idu setko je to Delphi 7 Personal unity su tam tie standartne nejaky mam pridat ?

To Anonymní uživatel : aby mi to jelo mam tam toto:

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



resp mam tento kod:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  b:tbutton;

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

  b := TButton.Create(nil);

  b.ParentWindow := Form1.WindowHandle;

  b.Left := 50;

  b.Top := 60;

  b.Width:=30;

  b.Height:=20;

  b.Caption:='asdfas';

  b.Show;

end;



end.

To KIIV : Velmi pekne ti dakujem pravdepodobne bola chyba v StdCtrls tu som tam nemal alebo mozno nejaka chyba ale uz to ide DAKUJEM

To fero :

b: array [0..100] of tbutton;

procedure createquiz();

var x,y,ix : integer ;

begin

  for ix:=1 to 9 do

    begin

  y:=0;

  x:=x+100;

  b[ix]:= TButton.Create(nil);



  b[ix].ParentWindow := Form1.WindowHandle;



  b[ix].Left :=x;



  b[ix].Top := 150;



  b[ix].Width:=40;



  b[ix].Height:=40;



  b[ix].Caption:='button created';



  b[ix].Show;

  end;

end;

a na jakym eventu to mas nahozeny? pokud na oncreate tak je potencialni riziko ze ten hlavni objekt jeste neni vytvorenej

tak ne problem je banalnejsi... nemas inicializovanou promennou x :D
muzes bud x:= 100*(xi+1); nebo podobne

To KIIV : Pridal som x:=100; ale stale to vytvori iba jedno tlacidlo; A nemam to na oncreate mam taku proceduru ktora to robi a ta sa vykona po stlaceny tlacidla.

To fero : pridal si to doufam pred ten cyklus FOR :D
jinak sis je prekreslil vsechny pres sebe...

To KIIV : boze moj jak si vedel aku chybu som spravil... toto by ma nikdy nenapadlo ze mozem taku sprostu chybu spravit.... Som dva mesiace neprogramoval a robim taketo blbost . Dakujem

To fero : no napadlo me to jako jedna z moznosti proc se ti vykreslilo jen jedno tlacitko...
jedna z nejpravdepodobnejsich... :D

To KIIV : Tak dekuji este som sa chel opytat ako by som mohol na to tlacitko ktore vytvorim pridat event ?

no ted si nejsem uplne jist ale melo by to jit nejak takto:

b.onClick := proceduranazpracovani ;
ale ted nevim presne jestli to pofici

To KIIV : Zislo by sa

procedure TForm1.ButtonClicked(sender: TObject);

begin

  if Sender is TButton then

  begin

    ShowMessage(Format('%s clicked!',[TButton(Sender).Caption]));

  end;

end;

type 

procedure ButtonClicked(sender : TObject);

je tu potencialni riziko ze musi i ve tride nadefinovano... pak jeste musi byt pred tim nez ji pouzijes

jen sem neco zkousel a jde mi to:

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;



    procedure Button1Click(Sender: TObject);

    procedure BClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  b: TButton;

  Form1: TForm1;



implementation



{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);

begin

  button1.Caption:= 'button1';



  if ( b = nil ) then begin

    b := TButton.Create(nil);

    b.ParentWindow := Form1.WindowHandle;

    b.Left := 50;

    b.Top := 60;

    b.Width:=30;

    b.Height:=20;

    b.Caption:='asdfas';

    b.Show;



    b.OnClick:= BClick;

  end;

end;



procedure TForm1.BClick(Sender: TObject);

begin

  button1.Caption:= 'button2';

end;



end.

To KIIV : hmmm to tvoje mi ide ale moje... nie... cudne ja tam nejako uz tu chybu najdem dakujem

To fero : nezapomen ze ja mam tu proceduru nadefinovanou taky v objektu... ne jen za tim..