Button erstellen und Funktion zuweisen....

[CrashMan]

Also eine Button kann man ganz einfach nach dem Prinzip erstellen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  NewButton: TButton;
begin
  // Neuen Button auf Form 1 erzeugen:
  NewButton := TButton.Create(Form1);
  // Eigenschaften des neuen Buttons festlegen:
  with NewButton do
  begin
    Parent := Form1;
    Caption := 'Neuer Button';
    Top := 10;
    Left := 10;
    Height := 30;
    Width := 100;
  end;
end;

Aber wie weise ich dem Button eine Funktion zu?

[Tpercon]

Delphi-Quellcode:

OnClick := mybuttonOnClick

mybuttonOnClick muß ne procedure sein, die die gleichen pArameter hat, wie die ursprüngliche OnClick Methode des Buttons!

[CalganX]

Hi,
du erstellst einfach eine Prozedur vom Typ z.B. TNotifyEvent (siehe Hilfe) und weist die zu.
So zum Beispiel:

Delphi-Quellcode:

procedure TForm1.MeinEigenesOnClick(Sender: TObject);
begin
  ShowMessage('Dynamischer Button wurde geklickt');
end;

{...}
procedure TForm1.FormCreate(Sender: TObject);
var
  NewButton: TButton;
begin
  NewButton := TButton.Create(Form1);
  with NewButton do
  begin
    Parent := Form1;
    Caption := 'Neuer Button';
    Top := 10;
    Left := 10;
    Height := 30;
    Width := 100;
    OnClick := MeinEigenesOnClick;
  end;
end;
{...}

Chris

[neolithos]

Delphi-Quellcode:

  TForm1 = class (TForm)
  private
    procedure NewButttonClick(Sender : TObject);
  ...
  end;

procedure TForm1.NewButttonClick(Sender : TObject);
begin
  // Mach was
end;

....


NewButton.OnClick := NewButttonClick;

[Ricane]

Wie kriegt man es denn hin, das man auch unterscheiden kann, welches Elemet gedrückt wurde?!

Leider kann man die OnClick Prozedur die dann kommen soll nicht noch mit mehr Attributen füttern, so das man das denn herausfindet...

Die Eigenschaft Sender bringt einen auch nicht besonders weiter...


Ricane

[Alexander]

Was genau meinst du mit Element?
Du kannst dem Button z.B. mit tag eine eindeutige Nummer zu weisen.
Oder meinst du sowas hier:

Delphi-Quellcode:

ShowMEssage(TButton(Sender).Name)

?

[CalganX]

Hi,
doch. In dem du die Eigenschaft "Name" des Buttons festlegst und dann schreibst:

Delphi-Quellcode:

procedure TfrmMain.NewButtonClick(Sender: TObject);
begin
  if (Sender as TButton).Text = 'NewButton' then
    // tu was
  else if (Sender as TButton).Text = 'AndererButton' then
    // tu was anderes
end;

Chris

[Ricane]

Zitat:

Zitat von neolithos

Delphi-Quellcode:

NewButton.OnClick := NewButttonClick;

Kann es sein, das das nicht funktioniert, wenn die eigene Prozedure in einer anderen Unit liegt?! Ich habe meine eigene Prozedur in einer anderen Unit und es will nicht...

Folgender Fehler: [Fehler] Db_ExportMain.pas(1010): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

Hier weise ich die Prozedur zu:

Code:

  btnImportConnection.OnClick := ZweiteVerbindung;

Und das ist die Prozedur!

Code:

Procedure ZweiteVerbindung(Sender: TObject);
Begin

  ShowMessage('Ich liege in einer anderen Unit!');

End;

Natürlich sind die Units gegenseitig in den USES Listen ....


Grüsse,

Ricane

[Stevie]

Die Prozedur muss innerhalb desjenigen Objektes deklariert sein, in dem sich auch des Element befindet, dem du diese Prozedur als Ereignisroutine zuweisen willst.

[Ricane]

Zitat:

Zitat von Stevie

Die Prozedur muss innerhalb desjenigen Objektes deklariert sein, in dem sich auch des Element befindet, dem du diese Prozedur als Ereignisroutine zuweisen willst.

Mit anderen Worten es funzt leider nicht ...