Mit Message bestimmte Aktionen bei Komponenten ausführen

[Sidewinder]

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