Memo KeyDown bei Enter alles löschen -> Leerzeile bleibt

Reply to Memo KeyDown bei Enter alles löschen -> Leerzeile bleibt on Thu, 05 Apr 2007 22:21:43 GMT

download123 — Thu, 05 Apr 2007 22:21:43 GMT

Also ich habe heute noch ein kleines Problem,
und zwar will ich ein Memofeld benutzen um Text zum versenden einzugeben,
bei enter soll der text versand und das Memofeld komplett geleert werden.

Im moment gehts mir gerade nur um das bei Enter leeren.
Mache ich derzeit so:

void __fastcall TForm1::MemoKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == VK_RETURN)
        {
          Memo->Clear();
        }

}

Allerdings scheint die Enter Taste Erst danach "eingefügt", denn eine Leerzeile bleibt in dem Memo.

Meine Frage wie löse ich dieses Problem ?

Reply to Memo KeyDown bei Enter alles löschen -> Leerzeile bleibt on Fri, 06 Apr 2007 07:37:37 GMT

akari — Fri, 06 Apr 2007 07:37:37 GMT

Hallo

Du must einerseits den OnKeyPress-Event anstelle des OnKeyDown-Events verwenden und zweitens nach dem Abfangen des Enters die Weiterverarbeitung verhindern.

void __fastcall TForm1::MemoKeyPress(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == VK_RETURN)
        {
          Memo->Clear();
          Key = 0;
        }

}

bis bald
akari

Reply to Memo KeyDown bei Enter alles löschen -> Leerzeile bleibt on Fri, 06 Apr 2007 11:11:50 GMT

download123 — Fri, 06 Apr 2007 11:11:50 GMT

Das hatte ich nach der Socket error sache auch schon versucht,

leider hilft es nicht...

die leerzeile bleibt bzw. wird eingefügt

Reply to Memo KeyDown bei Enter alles löschen -> Leerzeile bleibt on Fri, 06 Apr 2007 11:25:07 GMT

akari — Fri, 06 Apr 2007 11:25:07 GMT

Hallo

Das glaube ich nicht. Bei meinem Test meines Codes wurde das Memo vollständig gelöscht ohne Leerzeile, ein direkt nachfolgende Abfrage von Memo1->Text.Length() ergibt wie erwartet 0.

bis bald
akari

Reply to Memo KeyDown bei Enter alles löschen -> Leerzeile bleibt on Fri, 06 Apr 2007 11:40:02 GMT

download123 — Fri, 06 Apr 2007 11:40:02 GMT

void __fastcall TForm2::Memo_sendenKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
        if (Key == VK_RETURN)
        {
          TextSenden();//Text wird gesendet
          Memo_senden->Clear();
          Key = 0;
        }

}

Das ist der exakte Code
so schauts nach einem Enter aus
http://img99.imageshack.us/img99/5292/aufzeichnenow7.jpg

Reply to Memo KeyDown bei Enter alles löschen -> Leerzeile bleibt on Fri, 06 Apr 2007 11:47:13 GMT

akari — Fri, 06 Apr 2007 11:47:13 GMT

Hallo

akari schrieb:

Du must einerseits den OnKeyPress-Event anstelle des OnKeyDown-Events verwenden

bis bald
akari

Reply to Memo KeyDown bei Enter alles löschen -> Leerzeile bleibt on Fri, 06 Apr 2007 11:49:48 GMT

download123 — Fri, 06 Apr 2007 11:49:48 GMT

sorry irgendwie untergegangen