Einzelnen Beitrag anzeigen

nahpets
(Gast)

n/a Beiträge
 
#8

AW: TSpeedButton Sender Übergabe Problem

  Alt 21. Apr 2017, 15:30
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.
  Mit Zitat antworten Zitat