TSpeedButton Sender Übergabe Problem

[jdiephaus]

Zitat von nahpets:

Mal ein bisserl rumgewuselt und ungetestet

Hallo Nahpets! Erstmal vielen Dank für die schnelle Antwort und natürlich dass du dir die Mühe gemacht hast.

Ich habe mir dein Beispiel gerade vorgenommen und getestet und hätte erstmal eine Frage:

Code:

zeichen := Chr(TSpeedButton(Sender).Tag);

Verstehe ich das richtig, dass so der Tag von z.B Taste 9 in einen Char gewandelt an zeichen übergeben wird?


Ich habe jetzt alle Tags entsprechend vergeben, bekomme jedoch immernoch keine Ausgabe oder auch nur eine andere Anzeige als 0 auf label1.Caption.

Habe dann auch noch folgendes getestet:

Code:

procedure TForm1.TsbClick(Sender: TObject);
begin
  if Sender is TSpeedButton then begin 
    case TSpeedButton(Sender).Tag of
      1 : zeichen := '1';
  end;
  if math_op then begin
    math_op:= false;
    zeichenkette := zeichen;
  end
  else zeichenkette := zeichenkette + zeichen;
  label1.Caption := zeichenkette;
end;

Habe dann sogar noch getestet direkt label1.Caption := 'Test' zu setzen, funktioniert leider auch nicht.

Anscheinend liest er den Tag der Buttons nicht richtig aus sehe ich das richtig? Ich wäre wirklich sehr dankbar für sämtliche Hilfe..

Schöne Grüße,
jdiephaus