Hoffentlich ist das jetzt besser.
Hallo Nahpets! Habe gerade getestet und bekomme leider immer noch keine Ausgabe. Habe es mit folgendem Minimalbeispiel probiert. Leider wie gesagt ohne Ausgabe auf label1.Caption. Ich weiß wirklich nicht was ich verkehrt mache, aber anscheinend erkennt er die Tags der SpeedButtons nicht.
Code:
procedure TForm1.TsbClick(Sender: TObject);
begin
if Sender is TSpeedButton then begin
zeichen := Chr(TSpeedButton(Sender).Tag + 48);
end;
label1.Caption := zeichen;
end;
Ich wäre dir wie zuvor sehr dankbar für deine Hilfe!
Schöne Grüße,
jdiephaus