Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Prism
by SaFu,
11. Mai 2007
sorry
so mit deiner Procedur
procedure TForm8.ueberall(Sender: TObject);
begin
if (Button1.Caption <> '') then
begin
if (StrToInt(Button1.Caption) < 9) OR (Button1.Caption = '') then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Prism
by SaFu,
11. Mai 2007
oder du schreibst ne eigene Procedure
procedure TForm8.ueberall(Sender: TObject);
begin
if (Sender is TButton) then
begin
if (TButton(Sender).Caption <> '') then
begin
if (StrToInt(TButton(Sender).Caption) < 9) OR (TButton(Sender).Caption = '') then