TMemo - Wirklich alles löschen!

S-Man · Hält's aus hier Beiträge: 6

Ich habe noch ein PRoblem:

ICh habe ein Memo-Feld. Bei diesem habe ich das Ereignis OnKeyDown. Darüber wird abgefragt, ob die Enter-Taste gedrückt wurde (if key=vk_return then). Wenn ja, dann soll das Memo gelöscht werden (memo1.clear;) es wird zwar der ganze text gelöscht. nur leider scheint erst der text gelöscht zu werden, und danach noch das [Enter] geschrieben. Es steht also noch eine Leerzeile im Memo, trotzdem ich es gelöscht habe. Wie kann ich das Memo wirklich komplett löschen, also so, dass keine Enter eingefügt wird.

MfG S-Man

sunspeed · Verfasst: Di 27.09.05 11:50

du musst die key variable nachdem du geprüft hast auf
#0 setzen. dann wird die return taste ignoriert.
sprich du maskierst die returntaste nach der prüfung mit
#0

Gruß Sunspeed

hoffe geholfen zu haben

_________________
Tiefe Brunnen muss man graben, wenn man klares Wasser will.
Tiefe Wasser sind nicht still!

Crowbar · Beiträge: 180 WinXP, SP2 D6 Enterprise

... zu spät

Die "Praxis:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key = vk_return then
  begin
    Memo1.Clear;
    Key:=0;
  end;
end;

Cu
Crowbar

sunspeed · Verfasst: Di 27.09.05 11:55

fällt mir grad auf, warum prüfst du bei onkeydown?
mach doch das bei onkeypress, da weiß ich mit sicherheit dass das funktioniert mir dem #0,
weil bei onkeydown wird nicht das zeichen übergeben sondern ein word.

wenn dus weiterhin mit onkeydown machen willst, dann setz danach die key variable auf vk_escape oder so

_________________
Tiefe Brunnen muss man graben, wenn man klares Wasser will.
Tiefe Wasser sind nicht still!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme