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 :-D

[Neutral General]

Hallo,

Schreib mal statt

Delphi-Quellcode:

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

das hier:

Delphi-Quellcode:

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 :gruebel:

[blackfin]

ok du hast recht :stupid: 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:

Zitat von DeddyH (Beitrag 1109862)

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).

[tkoenig]

Ja, dass die Buttons jetzt nicht mehr zum Grid gehören, ist mir auch aufgefallen.. Gibt es dafür einen einfachen Workaround?

[SirThornberry]

Ich würde das ganze wieder aufs Grid packen und versuchen heraus zu finden wo das Click verschwindet. Denn zum Beispiel MouseDown und MouseUp funktionieren beim Button weiterhin auch wenn der Parent des Buttons ein StringGrid ist (notfalls kann man sich sein eigenes Klick basteln was auf Grundlage von MouseDown und MouseUp arbeitet)

[EWeiss]

Ich würde die Winmessagen umleiten also das grid subclassen.

gruss

[blackfin]

Zitat:

Ich würde die Winmessagen umleiten also das grid subclassen.

Der Satz hat gute Chancen, Aussage des Jahres zu werden :lol::stupid:

[EWeiss]

Zitat:

Zitat von blackfin (Beitrag 1109941)

Zitat:

Ich würde die Winmessagen umleiten also das grid subclassen.

Der Satz hat gute Chancen, Aussage des Jahres zu werden :lol::stupid:

Wie meinst das ?
War ernst gemeint.

Aber davon ab verstehe ich nicht warum man hier ein ClickAction benötigt die Button müßten weiterhin auf das clicken reagieren können auch ohne
extra event.

gruss

[blackfin]

Zitat:

Wie meinst das ?
War ernst gemeint.

Deine Aussage war ja auch richtig!
Ich musste nur schmunzeln, als ich realisiert habe, was für ein Fachbegiff-Denglisch der Satz ist :-)
Nix für ungut :stupid:

Ja ich bin doof

[EWeiss]

Zitat:

Zitat von blackfin (Beitrag 1109964)

Zitat:

Wie meinst das ?
War ernst gemeint.

Deine Aussage war ja auch richtig!
Ich musste nur schmunzeln, als ich realisiert habe, was für ein Fachbegiff-Denglisch der Satz ist :-)
Nix für ungut :stupid:

Ja ich bin doof

Ach jo sorry mein denglish ist nicht das beste ;) hehehehe (ne 6 dafür ist gar nicht's aber 7 gibts ja leider nicht!)
Ich lerns nimmer.

Ja ich bin doof
Denke nicht..

gruss

[himitsu]

Zitat:

Zitat von tkoenig (Beitrag 1109844)

Delphi-Quellcode:

SetLength(Buttons,high(Captions)+1);
for i := 0 to high(Buttons) do
  SetLength(Buttons[i],StringGrid.RowCount-StringGrid.FixedRows);

Delphi-Quellcode:

Buttons[i,j].Name := 'TBGButton_'+inttostr(i)+'_'+inttostr(j);
Buttons[i,j].Tag := strtoint(inttostr(i) + inttostr(j));

Damals reichte es, wenn die Noten nur bis Fünf gingen, aber heutzutage braucht man schon die 6. :stupid:

Wo hier nun schon Viele beim Problem mit dem OnClick helfen...

Da du deine Buttons sowieso in einem Array verwaltest und vermutlich kein FindComponent verwendest, kannst'e auf den Komonentennamen verzichten.
> die VCL braucht den Namenm um die gleichnamige Form-Variable mit der Komponente in der DFM zu verknüpfen und um eventuell die Komponenten untereinander zu verknüpfen (wie z.B. Eine ImageList irgendwo zuweisen).
> und man braucht den Namen, wenn man darüber eine Komponete suchen will, wie z.B. über FindComponent (was aber auch oftmals anders/besser/schneller geht)

Der Tag wird bestimmt falsch berechnet, denn

Delphi-Quellcode:

[1, 3] = 4

und

Delphi-Quellcode:

[3, 1] = 4

.

Und da das Array sowieso quadratisch wird, kann man alle ebenen auch gleichzeitig setzen.

Delphi-Quellcode:

SetLength(Buttons, Length(Captions), StringGrid.RowCount-StringGrid.FixedRows);
for i := 0 to high(Buttons) do

[schlecki]

Zitat:

Zitat von himitsu (Beitrag 1109971)

Der Tag wird bestimmt falsch berechnet, denn

Delphi-Quellcode:

[1, 3] = 4

und

Delphi-Quellcode:

[3, 1] = 4

.

wenn du dich da mal nicht vertan hast:

Zitat:

Delphi-Quellcode:

...Tag = strtoint(inttostr(i) + inttostr(j));

sollte also

Delphi-Quellcode:

[1, 3] = 13

und

Delphi-Quellcode:

[3, 1] = 31

liefern. Problematisch wird es trotzdem bei

Delphi-Quellcode:

[11, 1] = 111 = [1, 11]

:)

[ibp]

Zitat:

Zitat von schlecki (Beitrag 1109993)

Zitat:

Zitat von himitsu (Beitrag 1109971)

Der Tag wird bestimmt falsch berechnet, denn

Delphi-Quellcode:

[1, 3] = 4

und

Delphi-Quellcode:

[3, 1] = 4

.

wenn du dich da mal nicht vertan hast:

Zitat:

Delphi-Quellcode:

...Tag = strtoint(inttostr(i) + inttostr(j));

sollte also

Delphi-Quellcode:

[1, 3] = 13

und

Delphi-Quellcode:

[3, 1] = 31

liefern. Problematisch wird es trotzdem bei

Delphi-Quellcode:

[11, 1] = 111 = [1, 11]

:)

das Problem könnte man mit einer durchgehenden Nummerierung umgehen und hätte dann auch nicht die doppelten Konvertierungen...

Delphi-Quellcode:

...Tag:=1+j*(high(Buttons)+1)+i

[himitsu]

Ups, aber dennoch falsch :stupid:

Delphi-Quellcode:

[12, 3] = 123

und

Delphi-Quellcode:

[1, 23] = 123