Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Moombas,
15. Aug 2019
Das denke ich weniger, da er in beiden Fällen die '1' anhängt, müsste ja sonst beim zweiten Edit die '2' sein. Auch das er mit zwei Edit arbeitet denke ich spricht gegen diesen Fall.
Aber ich vermute das der Weg über den Button ggf. nicht der Richtige ist, sondern hier OnChange mit entsprechender/n Bedingung/en der bessere Weg wäre.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Moombas,
15. Aug 2019
Mal nebenbei, der Code (vom TE) ist viel zu lang. Folgendes sollte das gleiche bewirken (wie der vom TE) ohne einen Helpstring:
procedure TForm1.Button2Click(Sender: TObject);
begin
if Edit1.Showing then
begin
Edit1.Text := Edit1.text + '1';
end else if Edit2.Showing then
begin