TSpeedButton Sender Übergabe Problem

[nahpets]

Zitat von jdiephaus:

Zitat von nahpets:

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.

[Michael II]

Hallo jdiephaus

für jeden deiner SpeedButtons vergibst du im Objektinspektor eine Tag-Nummer.

Du musst nun für einen deiner SpeedButtons im Objektinspektor OnClick auswählen und dann Code reinschreiben

Delphi-Quellcode:

procedure machetwas( z : integer );
begin
  ShowMessage( z.ToString );
end;

procedure TForm52.SpeedButton1Click(Sender: TObject);
var ziffer : integer;
begin
  if Sender is TSpeedButton then
  begin
    ziffer := ( sender as TSpeedButton ).tag;
    machetwas( ziffer );
  end;
end;

Bis jetzt reagiert das Programm nur auf Klicks auf SpeedButton1.

Wenn dein Programm auch auf SpeedButton2 reagieren soll, dann wähle im Objektinspektor für das OnClick Ereignis von SpeedButton2 "SpeedButton1Click" aus. Jetzt reagiert auch SpeedButton2 (via SpeedButton1Click) auf Klicks. Mach's für die weiteren SpeedButtons ähnlich. Fertig.

Noch ein Tipp: Das Setzen und Abfragen der Eigenschaft Tag ist praktisch, wenn du viele Buttons mit ähnlicher Funktion hast.
Wenn du einen Taschenrechner mit vielen Tasten [+,-,*,/,Speichern, Löschen, etc.] baust, dann wird die OnClick Ereignisbehandlungsroutine eventuell übersichtlicher, wenn du für diese Tastenklicks statt den Wert des jeweiligen Tags die Eigenschaft "Name" des Senders auswertest.