2 x TLMDSpeedbutton gegenseitig gedrückt/ nicht gedrück lass

[DelphiManiac]

Hi,

danke dir, ja manchmal liegt die Antwort ganz nahe!!

Delphi-Quellcode:

procedure TMainGUI.btnEnglischClick(Sender: TObject);
begin
  btnEnglisch.AllowAllUp:=False;
  btnEnglisch.GroupIndex:=-1;
  btnDeutsch.GroupIndex:=1;
  btnDeutsch.AllowAllUp:=True;
  UseLanguage('en');
  ReTranslateComponent(Self);
end;