Klick auf Button mit enabled=false

[himitsu]

Zitat von eike42:

Da es in der Toolbar ist, geht sowas wie transparentes Control drüberlegen oder so natürlich auch nicht...

TPaintBox hätte sich gut gemacht, aber bei dem Ort des Buttons isses wirklich blöd.

OnMouseClick des übergeordneten Controls und prüfen ob auf den Button geklickt wurde

Delphi-Quellcode:

procedure TForm1.ToolBar1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if PtInRect(Button1.BoundsRect, Point(X, Y))
      and not Button1.Enabled then
    ShowMessage('nee, is nich');
end;

@Mithrandir: wie kommst du nur darauf?