zeilenumbruch verhindern

Hi leute

ich will im TMemo mit VK_RETURN eine bestimmte Funktion ausführen. Aber irgendwie kann ich nicht verhindern, dass danach im Memo auch noch ein Zeilenumbruch eingefügt wird.

Ist das irgendwie möglich, den Zeilenumbruch zu verhinden?

void __fastcall TFormChat::TextBoxKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if ( Key == VK_RETURN )
    {
        FormMain->SendMessage( TextBox->Text );
        TextBox->Clear();
        Key = 0;
    }
}

So hab ich es probiert, aber der Zeilenumbruch ist trotzdem noch da...

Die Frage, die sich mir spontan aufdrängt, ist, warum Du überhaupt ein TMemo willst, wenn du keine Zeilenumrüche haben willst?

Davon abgesehen, wenn Du den Code in OnKeyPress() statt in OnKeyDown() einsetzt, funktioniert das auch.

Ich nehme ein Memo, weil bei TEdit nur eine Zeile eingetragen werden. Das Memo schreibt einfach in der nächsten Zeile weiter ( ohne einen Zeilenumbruch zu erzeugen ).Für größere Texte ist das besser.

Hab rausgefunden wie es geht.

Das TMemo hat ein Property das sich "WantReturns" nennt. Setzt man das auf "false" so werden durch drücken der Return-Taste keine Zeilenumbrüche generiert.

... manchmal ist es so einfach ...