witam wszystkich, jestem początkujący i mam następujący problem:
gdy po przeczytaniu artykułu Dynamika utworzę buttona nie mogę dodać do niego zdarzenia oto kod:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TForm1 = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var buttony : array of TButton; //Jako zmienna globalna
implementation
{$R *.DFM}
procedure Procedura_typu_onClick;
begin
ShowMessage('Co mnie klikasz :>');
Buttony[0].visible:=false;
// I tym podobne //
end;
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
SetLength(Buttony,Length(buttony)+1); //Zmienia wielkość tablicy buttonów o jeden
//Ach wreszcie tworzymy to co trzeba :)
Buttony[1] := TButton.Create(Self {np Form1,Panel1 itp}) ;
Buttony[1].Parent := Self {np Form1,Panel1 itp};
Buttony[1].Caption := 'Dynamika RLZ';
Buttony[1].Top := 50;
Buttony[1].Left := 50;
Buttony[1].Visible := true;
Buttony[1].Width := 75;
Buttony[1].Height := 25;
// A teraz zdarzenia do tego: //
Buttony[1].OnClick := Procedura_typu_onClick; //napisana wcześniej :)
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Buttony[1].free;
SetLength(buttony,Length(buttony)-1); //Zmienia wielkość tablicy buttonów o jeden
end;
co jest źle?