Buttons dynamisch erstellen

[Pelzi]

Hi,
Ich brauche für ein programm sehr viele Buttons auf meinem Formular, deswegen hab ich mir überlegt das es das einfachste wäre die Buttons dynamishc zu erstellen. Schön und gut innen bischen in Klassen in Delphi eingelesen, und schnell herausgefunden wie man Komponenten dynamisch erstellt, dachte ich.
Mit dem dynamischen erstellen von Formularen klappt es so ja auch problemlos:

Delphi-Quellcode:

var
  Form1: TForm1;
  forms: array[0..20] of TForm;

[......]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
  for i:=0 to 20 do
  begin
    forms[i]:=TForm.create(form1);
    forms[i].Visible:=true;
    forms[i].Left:=i*40;
  end;
end;

Das funktioniert ohne Probleme.
Nun stelle icha ber diesen code auf Buttons um:

Delphi-Quellcode:

var
  Form1: TForm1;
  buttons: array[0..20] of TButton;

[......]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
  for i:=0 to 20 do
  begin
    buttons[i]:=TButton.create(form1);
    buttons[i].Visible:=true;
    buttons[i].Left:=i*40;
  end;
end;

Wenn ich nun das nun Compeliere sagt er mir zunächst:

Zitat:

[Fehler] Unit1.pas(19): Undefinierter Bezeichner: 'TButton'

Das lässt sich aber beheben in dem ich einen button auf dem Formular erstelle un ihn wieder lösche.
Nun gibt es zwar keine Fehlermeldungen mehr, aber es passiert aber auch nciht das gewünschte.
Es passiert nämlich genau garnichts, außer das nach realtiv langer Compelier Zeit für ein so kleines Programm ein leeres Fenster erscheint.
Woran liegt das?
Und wie funktioniert es?

pelzi

[jfheins]

Du musst noch top, height und width enstellen, damit der Button weis, wo er ist ;)

Ach, und nen Parent braucht er auch noch ...

[glkgereon]

Zitat:

Zitat von jfheins

Du musst noch top, height und width enstellen, damit der Button weis, wo er ist ;)

Ach, und nen Parent braucht er auch noch ...

Idealerweise sagst du ihm auch noch was er beim OnClick machen soll (Wozu sonst ein Button?)

Und damit er wirklich gezeigt wird muss man glaub ich noch Button.Show; sagen...

[turboPASCAL]

Da der Button selbst ein Fenster ist muss ihm noch ein Parent zugewiesen werden damit er weis auf welchem Fenster er erscheinen soll.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
  for i:=0 to 20 do
  begin
    buttons[i]:=TButton.create(form1);
    buttons[i].Visible:=true;
    buttons[i].Left:=i*40;

    buttons[i].Parent := forms[i];
  end;
end;

[Pelzi]

Zitat:

Zitat von glkgereon

Zitat:

Zitat von jfheins

Du musst noch top, height und width enstellen, damit der Button weis, wo er ist ;)

Ach, und nen Parent braucht er auch noch ...

Idealerweise sagst du ihm auch noch was er beim OnClick machen soll (Wozu sonst ein Button?)

Und damit er wirklich gezeigt wird muss man glaub ich noch Button.Show; sagen...

So der Tipp mit dem Parent war gut :)
Wo du es schon ansprichst, Onclick ereignisse, in diesem Fall brauchte ich die ganzen buttons zwar nur wegen ihres schönen aussehens, aber in zukunft kann es durchaus passieren, das sie etwas bewirken sollen.
Kann mir da jemand einen Link geben oder erklären wie es funktioniert?

Pelzi

[glkgereon]

Zitat:

Zitat von Pelzi

Zitat:

Zitat von glkgereon

Zitat:

Zitat von jfheins

Du musst noch top, height und width enstellen, damit der Button weis, wo er ist ;)

Ach, und nen Parent braucht er auch noch ...

Idealerweise sagst du ihm auch noch was er beim OnClick machen soll (Wozu sonst ein Button?)

Und damit er wirklich gezeigt wird muss man glaub ich noch Button.Show; sagen...

So der Tipp mit dem Parent war gut :)
Wo du es schon ansprichst, Onclick ereignisse, in diesem Fall brauchte ich die ganzen buttons zwar nur wegen ihres schönen aussehens, aber in zukunft kann es durchaus passieren, das sie etwas bewirken sollen.
Kann mir da jemand einen Link geben oder erklären wie es funktioniert?

Pelzi

Weil sie schön aussehen? :shock:

OnClick:

einfach eine
procedure Click(Sender: TObject);
in der Form deklarieren und dann
Button.OnClick:=Click;

[Pelzi]

Zitat:

Zitat von glkgereon

Zitat:

Zitat von Pelzi

Zitat:

Zitat von glkgereon

Zitat:

Zitat von jfheins

Du musst noch top, height und width enstellen, damit der Button weis, wo er ist ;)

Ach, und nen Parent braucht er auch noch ...

Idealerweise sagst du ihm auch noch was er beim OnClick machen soll (Wozu sonst ein Button?)

Und damit er wirklich gezeigt wird muss man glaub ich noch Button.Show; sagen...

So der Tipp mit dem Parent war gut :)
Wo du es schon ansprichst, Onclick ereignisse, in diesem Fall brauchte ich die ganzen buttons zwar nur wegen ihres schönen aussehens, aber in zukunft kann es durchaus passieren, das sie etwas bewirken sollen.
Kann mir da jemand einen Link geben oder erklären wie es funktioniert?

Pelzi

Weil sie schön aussehen? :shock:

OnClick:

einfach eine
procedure Click(Sender: TObject);
in der Form deklarieren und dann
Button.OnClick:=Click;

Also wo jetzt die Prozedur deklarieren?
wenn ich es so mache bekomme ich eine Fhelermeldung:(mal die ganze unit)

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  buttons: array[0..20] of TButton;
  forms: array[0..20] of TForm;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer;
begin
  for i:=0 to 20 do
  begin
    buttons[i]:=TButton.create(form1);
    buttons[i].Left:=20;
    buttons[i].top:=80;
    buttons[i].height:=35;
    buttons[i].width:=80;
    buttons[i].Visible:=true;
    forms[i]:=TForm.Create(form1);
    buttons[i].Parent:=forms[i];
    forms[i].Visible:=true;
    forms[i].left:=40*i;
    forms[i].width:=38;
    buttons[i].OnClick:=click;
  end;
end;
procedure click(Sender: TObject);
begin
  showmessage('du hast geklicked');
end;

end.

Zitat:

[Fehler] Unit1.pas(46): Inkompatible Typen: 'Liste der Parameter ist unterschiedlich'

Pelzi

[glkgereon]

nimm mal einen Button per Hand und nimm da das OnClick.

genauso muss es aussehen, nur halt per hand geschrieben ;)

so:

Delphi-Quellcode:

TForm1 = class(TForm) 
    procedure FormCreate(Sender: TObject); 
    procedure Click(Sender: TObject); 
  private
//...

implementation

procedure TForm1.Click(Sender: TObject);
begin
  //Mach mal irgendwas
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:Integer; 
begin 
  for i:=0 to 20 do 
  begin 
    buttons[i]:=TButton.create(form1); 
    buttons[i].Left:=20; 
    buttons[i].top:=80; 
    buttons[i].height:=35; 
    buttons[i].width:=80; 
    buttons[i].Visible:=true; 
    forms[i]:=TForm.Create(form1); 
    buttons[i].Parent:=forms[i]; 
    forms[i].Visible:=true; 
    forms[i].left:=40*i; 
    forms[i].width:=38; 
    buttons[i].OnClick:=click; 
  end;
end;

[dataspider]

Hi,

die Methode Click ist in bereits als virtuelle Methode (TControl) implementiert.
Du musst diese in z.B. ButtonClick umbenennen.

Cu, Frank

[Pelzi]

Zitat:

Zitat von dataspider

Hi,

die Methode Click ist in bereits als virtuelle Methode (TControl) implementiert.
Du musst diese in z.B. ButtonClick umbenennen.

Cu, Frank

Guter Tipp, aber funktionieren tuts nochimmer nicht, gibt ne neue Fehlermeldung:

Zitat:

[Fehler] Unit1.pas(46): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

Pelzi