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?