ich denke er stellt sich das so vor:
Zitat:
Du kannst ja allen Buttons das gleiche OnMouseDown Ereignis zuweisen
Delphi-Quellcode:
Procedure onmousedown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (sender is Tspeedbutton) then
begin
case (sender as Tspeedbutton).Tag of
0: {dosomething};
1: {dosomething};
2: {dosomething};
else
end;
end;
end;
damit kann man auf die messages verzichten...
aber nicht vergessen... jeder speedbutton braucht
einen anderen tag-wert...