Ich nehme an die beiden Buttons heißen Label1(?) und sbColor:
Delphi-Quellcode:
procedure TFormUserTune.Label1Click(Sender: TObject);
begin
If sender.Name = 'Label1' then sbColorGridClick(Sender);
end;
procedure sbColorGridClick(Sender: TObject);
begin
If sender.Name = 'sbColor' then Label1Click(Sender);
end;
Wenn der Event direkt durch Klicken des Buttons ausgelöst wird, wird dann die Prozedur des anderen Button mitausgelöst. Dieser löst dann aber nicht mehr den ersten aus.