Button OnClick wird nicht ausgelöst..

[Angel4585]

@mkinzler: ui des mit dem Parent geht.. aber sie sind dann nimmer auf dem Grid und scrollen au nimmer mit...

@SirThornberry: Dein Vorschlag funktioniert nicht, es bleibt wie es ist.

[DGL-luke]

Irgendwo muss das OnClick ja ankommen ;)

Wenns im TStringGrid.onclick ankommt: Weiterleiten, vielleicht kommt auch OnMouseUp an (hat der button das? falls nicht, Windowproc überschreiben)

[Angel4585]

Zitat:

Zitat von DGL-luke

vielleicht kommt auch OnMouseUp an (hat der button das? falls nicht, Windowproc überschreiben)

Tatsache.. ein OnMouseUp, und OnMouseDown usw funzen alle :thumb: Problem erledigt..

[OT]Meint ihr das mit dem Button im Grid wär was für die Codelib?[/OT]

[SirThornberry]

für die Codelib? Ich finde eher nicht da es doch recht unelegant ist in jedem Draw einen Button neu zu erstellen. Desweiteren gibt es bei dieser Variante doch unschöne Effekte beim Scrollen.

[Angel4585]

japp.. diese Effekte muss ich noch beheben.. aber dafür brauch ich irgendwie die Position und die Größe einer Zelle...

[Sidorion]

Lass doch einfach den TButton weg und zeichne ihn selber. Dann berechnest Du im StringGrid.Click die Zelle (MouseToCell oder so).
Das selberzeichnen ist auch fett schneller, einziges Problem ist evtl. das Highlighting bei aktivierten Themes. da musst Du im MouseMove die verlassene und betretene Zelle ausrechnen und diese beiden neuzeichnen.

[Sidorion]

Ist zwar schon älter, der Thread, aber ich hab gerade die Lösung gefunden: Die Stringgrid reicht die WM_COMMAND Nachricht nicht an ihre Childcontrols weiter. Abhilfe schafft dieser Code:

Delphi-Quellcode:

procedure TControlGrid.WMCommand(var Message: TWMCommand);
var
  Control: TWinControl;
begin
  Control := FindControl(Message.Ctl);
  if Control <> nil
  then Begin
    with TMessage(Message)
    do Result:=(Control.Perform(Msg + CN_BASE, WParam, LParam));
    If Message.Result<>0
    Then Inherited;
  End;
end;

Dazu muss die WMCommand-Methode überschrieben werden (ist nicht virtuell, macht aber in diesem Fall nix, da diese speziellen Nachrichtenbehandlungsmethoden anders behandelt werden)

Delphi-Quellcode:

  protected
    procedure WMCommand(var Message: TWMCommand); message WM_COMMAND;

Vielleicht brauchts ja jemand nochmal.