Anonymní profil fero – Programujte.com

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

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);

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 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 :

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;

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 KIIV : Jasne Tlacitka Idu setko je to Delphi 7 Personal unity su tam tie standartne nejaky mam pridat ?

To KIIV : pise ze :Undeclared identifier TButton

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 .