On-Click-Event

Major1337 · Beiträge: 29

Tag,
das Event On-Click soll nach jedem Klick auf den Button die Zeichenkette, in diesem Falle Teststring an Edit1 übergeben.
Bei meinem Code wird der String nur einmal an Edit1.Text gesendet egal wie oft ich den Button klicke.
Hier der Code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

procedure TForm1.Button1Click(Sender: TObject);
begin

Edit1.Text := 'Teststring';

end;

Bitte um Hilfe ;-)

Mit freundlichen Grüßen
Major

jaenicke · Verfasst: Mo 28.09.09 19:58

Beispiel:
Du willst 4 Äpfel und 4 Birnen in einen Korb legen.
Würdest du das dann so machen, dass du sagst "In den Korb: 4 Birnen"? Nein, du würdest beides hineinlegen...

Du aber legst in das Editfeld ja nur den neuen String, es soll aber der alte (Edit1.Text) plus der neue ('Teststring') hinein.

der organist · Verfasst: Mo 28.09.09 20:01

naja, wenn du willst, dass der String immer angehängt wird, solltest du dem Edit auch den bisherigen Text UND den String geben:

markieren

Delphi-Quelltext

1:	TestEdit.Text:=TestEdit.Text+'Teststring';

EDIT: Also, dass es immer noch die anderen gibt

Gruss,

_________________
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme