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
Die Frage die sich hier stellt wäre dann erstmal: Ist Sender ein TSpeedButton, sprich ist diese Bedingung erfüllt:
Sender is TSpeedButton
.
Also, wie schon von Klaus angedeutet, einen Haltepunkt auf die Zeile
zeichen := Chr(TSpeedButton(Sender).Tag + 48);
Bleibt der Debugger dort stehen?
Ohne Debugger mal sowas machen:
label1.Caption := ClassName;
Was steht denn dann im Label?
Ansonsten mal ein
ShowMessage(IntToStr(TSpeedButton(Sender).Tag));
Wir müssen letztlich drei Informationen bekommen:
Wird die Routine TsbClick beim Klick auf 'nen Button aufgerufen?
Wird eine Zuweisung auf Zeichen vorgenommen?
Wenn ja, was wird Zeichen zugewiesen?
Prüfe bitte zuerst was Klaus schrieb.
Dann kontrolliere die Zuweisung des Ereignisses, wie Jumpy schrieb.
Wenn dann noch keine Klarheit ist, versuche es mit meinen Vorschlägen.
Kommst Du dann immer noch nicht weiter, hänge bitte das ganze Projekt hier an, damit wir den aktuellen Stand vollständig betrachten können.