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