Zur Laufzeit erstellte Buttons - OnClick weigert sich

[tkoenig]

Mahlzeit zusammen,

ich weiß, dass dieses Thema hier regelmäßig hoch kommt und habe die Suche bemüht, leider hat mir keine der Lösungen dort weitergeholfen.
Ich habe mir eine Klasse geschrieben, die das TStringGrid um Buttons erweitert und diese in die entsprechenden Zellen einfügt. Funktioniert alles einwandfrei, nur leider bringt meine Zuweisung der OnClick-Routine gar nichts. Kann mir vielleicht jemand einen Schubs in die richtige Richtung geben?

Delphi-Quellcode:

 TButtonGrid = class
  private
    {...}
    Procedure ClickAction(Sender: TObject);
  published
    {...}
    Procedure AssignButtons(Captions: Array Of String);
    {...}
  end;

implementation

procedure TButtonGrid.AssignButtons(Captions: array of String);
var i,j: integer;
begin
  SetLength(Buttons,high(Captions)+1);
  for i := 0 to high(Buttons) do
  begin
    SetLength(Buttons[i],StringGrid.RowCount-StringGrid.FixedRows);
    for j := 0 to high(Buttons[i]) do
    begin
      Buttons[i,j] := TButton.Create(StringGrid);
      Buttons[i,j].Parent := StringGrid;
      Buttons[i,j].Caption := Captions[i];
      Buttons[i,j].Name := 'TBGButton_'+inttostr(i)+'_'+inttostr(j);
      Buttons[i,j].Tag := strtoint(inttostr(i) + inttostr(j));
      SetButtonPosition(Buttons[i,j]);
      SetButtonSize(Buttons[i,j]);
      Buttons[i,j].OnClick := ClickAction; // <-----------
    end;
  end;
end;

{...}

procedure TButtonGrid.ClickAction(Sender: TObject);
begin
  showmessage('hallo');
end;

Ich bekomme keine Fehlermeldung, leider sagt mir aber auch keiner der Buttons hallo...

Grüße
tkoenig

[blackfin]

Liegt das nicht daran, dass dein Event-Handler private-Deklariert ist?

Ich würde das eher so schreiben:

Delphi-Quellcode:

 TButtonGrid = class
  private
    {...}
    FClickAction: TNotifyEvent;     
  published
    {...}    
    Procedure AssignButtons(Captions: Array Of String);
    property ClickAction: TNotifityEvent read FClickAction write FClickAction; 
    {...}
  end;

Edit: bin heute wohl noch nicht wach. So müsste es nun stimmen

[Neutral General]

Hallo,

Schreib mal statt
Buttons[i,j] := TButton.Create(StringGrid);

das hier:

Buttons[i,j] := TButton.Create(Self);

@blackfin: das hat doch damit nichts zu tun. Und dein Lösungsvorschlag hat irgendwie nichts mit dem Problem zu tun

[blackfin]

ok du hast recht ich hol mir lieber mal nen kaffee...

*merkzettel schreib*: nicht schreiben, wenn man noch nicht wach ist.

[DeddyH]

Wer denn nun der Owner ist, dürfte für das Problem aber auch keine Rolle spielen, oder hab ich was verpasst? Das soll aber nicht heißen, dass self nicht besser wäre

[tkoenig]

Self bringt allerdings Fehlermeldung ('Inkompatible Typen: TComponent und TButtonGrid').. Nein, habe nicht abgeleitet, TButtonGrid hält nur die Komponenten vor.

Code:

Buttons[i,j] := TButton.Create(Buttons[i,j]);

bringt gleiches Ergebnis wie vorher: nichts passiert.

[Neutral General]

Achso du bist nicht in nem Formular.. Jedenfalls.. Schau mal, dass deine Buttons ein Formular als Owner bekommen.

@DeddyH: Das einzige was mir eingefallen ist war, dass die Button-Messages an das StringGrid gesendet werden und dieses die Messages verwirft, weil es nichts damit anfangen kann (Theorie). Deshalb dachte ich es könnte evtl helfen wenn man das Formular zum Owner macht.

Kann aber auch sein, dass ich da auch falsch liege. Mir fällt aber jetzt nichts besseres ein. Der Code sieht ja prinzipiell in Ordnung aus..

[DeddyH]

Beim Parent könnte ich mir sowas evtl. noch vorstellen, beim Owner weniger. Man könnte ja spaßhalber das ButtonGrid einmal von TComponent ableiten, dann sollte es sich auch zum Owner machen lassen. Allerdings fürchte ich, dass das nichts bringt.

[tkoenig]

Zitat von DeddyH:

Beim Parent könnte ich mir sowas evtl. noch vorstellen, beim Owner weniger. [...]

Yep, daran liegts. Wenn ich die Form als Parent setze, sagen mir die Buttons "hallo". Vielen Dank für eure Hilfe!

[Neutral General]

Naja, gut wenns klappt, aber schön ist das dann auch nicht. Die Buttons gehören somit nämlich NICHT zum Grid. Wenn du das Grid verschiebst dann verschieben sich z.B. nicht die Buttons und die Koordinaten für Left/Top werden relativ zum Formular angegeben und nicht relativ zu deinem Grid (fällt nicht auf wenn dein Grid bei 0/0 sitzt).