OnClick ereigniss für ganz viele buttons??

[snow]

Delphi-Quellcode:

procedure TKeyboardfenster.MGKeyboardbutton1Click(Sender: TObject);
var buttonclickedname : string;
lokal : integer;
begin
  Buttonclickedname:=(Sender as TComponent).Name;
  begin
  for lokal := 1 to 16 do begin
  if Buttonclickedname = 'MGKeyboardbutton'+(inttostr(lokal)) then Keyboardschalternummer := lokal;
  end;
  end;
  Keyboardschalternummer := (KeyboardNummer.Value - 1) * 16 + Keyboardschalternummer;
  If MGAdresse[(KeyboardNummer.Value - 1) * 16 + Keyboardschalternummer] = false then begin;
  MGAdresse[(KeyboardNummer.Value - 1) * 16 + Keyboardschalternummer] := true;
  TLabel(Sender).Color:=clred;
  end
  else if MGAdresse[(KeyboardNummer.Value - 1) * 16 + Keyboardschalternummer] = true then begin
  MGAdresse[(KeyboardNummer.Value - 1) * 16 + Keyboardschalternummer] := false;
  TLabel(Sender).Color:=cllime;
  end
  
  end;

damit hat es geklappt!


MfG snow