Button-Tag wird nicht erkannt

[FabianClassen]

Hi
ich habe paralell zu diesem Thread http://www.delphipraxis.net/internal...t.php?t=155919
mal versucht eine Lösung für die letzten Post zu erstellen.
Wollte den Code da auch eigentlich als Beispiel posten.
Nun habe ich aber selbst ein Problem:

Das ist mein Code:

Delphi-Quellcode:

unit Test_Unit;

interface

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

type
  TForm1 = class(TForm)
    Btn_1: TButton;
    Btn_2: TButton;
    Btn_3: TButton;
    Btn_4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Btn_1Click(Sender: TObject);
    procedure Btn_2Click(Sender: TObject);
    procedure Btn_3Click(Sender: TObject);
    procedure Btn_4Click(Sender: TObject);
  private
    { Private-Deklarationen }
    BtnNumber: Integer;
    procedure onButtonClick(Sender: TButton);
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
  BtnNumber := Random(3);
end;

procedure TForm1.onButtonClick(Sender: TButton);
begin
  if Sender.Tag = BtnNumber then
    ShowMessage('Du hast den richtigen Button erwischt!');
end;

procedure TForm1.Btn_1Click(Sender: TObject);
begin
  onButtonClick(Btn_1);
end;

procedure TForm1.Btn_2Click(Sender: TObject);
begin
  onButtonClick(Btn_2);
end;

procedure TForm1.Btn_3Click(Sender: TObject);
begin
  onButtonClick(Btn_3);
end;

procedure TForm1.Btn_4Click(Sender: TObject);
begin
  onButtonClick(Btn_4);
end;

end.

Nur Irgendwie bringt die Procedur onButtonClick kein Ergebnis.

Woran liegt das?
Schonmal danke.

MFG
FC
;)

[Meflin]

Schonmal nen Breakpoint im onButtonClick gesetzt und geguckt, was da so für Werte in Tag und BtnNumber stehen?

Hast du die Tags überhaupt gesetzt?

[mkinzler]

Der Parameter Sender ist vom Typ TComponent du musst ihn zu einem Button casten:

Delphi-Quellcode:

if (Sender as TButton).Tag = ...

[Meflin]

Zitat:

Zitat von mkinzler

Der Parameter Sender ist vom Typ TComponent du musst ihn zu einem Button casten

Ist er nicht :stupid: Und selbst wenn müsste es doch egal sein, sosnt könnten wir OOP ja gleich irgendwie sein lassen :gruebel:

[mkinzler]

Die Eventmethode für den Buttonklick liefert den geklickten Sender als TComponent.
Und OOp heisst das eine abgeleitete Klasse an die Stelle der Superklasse treten kann, aber nicht umgekehrt!

[FabianClassen]

Ist es denn schlimm, wenn ich hier den Sender als TButton direkt initialisiere,
Ich übergebe ja auch einen Button ;)

Ich habe übrigens die Variable mal in einer MessageBox abgefragt ... der Wert ist drin ...

Bitte um weitere Hilfe.

MFG
FC
;)

[jaenicke]

Aber wozu hast du denn überhaupt nochmal die einzelnen OnClicks? Das ist doch genau was du mit der Unterscheidung nach Sender verhindern willst... So macht das ja gar keinen Sinn. ;-)

Schau doch im Debugger was passiert, setz doch einfach einen Haltepunkt auf das if.

[mkinzler]

Warum weist du nichtbei allen buttons die selbe Methode zu und entscheidest dann per Sender?

[hoika]

Hallo,

poste doch mal das ganze Projekt als Zip ohne Exe (incl. der DFM).

Ich sehe nirgendwo, dass du Tag zuweist.

Ausserdem liefert Random(3) eine Zahl zwischen 0 und <3 zurück.


Heiko

[mkinzler]

Zudem überschneidet sich der Thread themenmässig mit diesem:
http://www.delphipraxis.net/internal...t.php?t=155919