WantReturns funktioniert nicht wie erwartet

[haentschman]

Hallöle...8-)

Ich habe 2 identische Frames für RichEdit. Einer hat ein TDBRichedit mit Datasource, der andere ein TRichEdit mit TStream. Beide liegen auf separten Panels als Parent.

Alle beide haben "WantReturns = True". Das DBRichEdit verhält sich wie in der Hilfe erwähnt...Zeilenvorschub bei ENTER. Der andere springt zum nächsten Control...:roll:
PS: Mit CTRL-ENTER macht der auch einen Zeilenvorschub...so wie "WantReturns = False" :gruebel:
PS: Keine Anweisung mit "WantReturns" im QT.
PS: Beide stammen von TCustomMemo ab wo "WantReturns" implementiert ist.

Mir gehen die Ideen aus...wo muß ich schauen? :gruebel:

Danke.

[DeddyH]

Hast Du irgendwo ein WM_NEXTDLGCTL im Code? Das hat man zu Urzeiten ja mal benutzt, um mit ENTER ins nächste Control zu springen, statt einfach TAB zu drücken.

[haentschman]

...du sagst es. 8-) Manchmal muß man nur darüber reden. :P

In der BasisForm:

Delphi-Quellcode:

procedure TfoBase.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Assigned(Self.ActiveControl) then
  begin
    if (Key = #13) and (not ((Self.ActiveControl.Parent is TcxCustomMemo) or
                             (Self.ActiveControl is TDBRichEdit) or
                             (Self.ActiveControl is TRichEdit) // hat gefehlt :-(
                             )) then
    begin
      Perform(WM_NEXTDLGCTL, 0, 0);
      Key := #0;
    end;
  end;
end;

Danke fürs Zuhören. :wink:

Zitat:

statt einfach TAB zu drücken.

Manche User sind auf die ENTER in Masken fixiert. :wink:

[Uwe Raabe]

Wäre es nicht einfacher und flexibler auf TCustomMemo zu prüfen und dessen WantReturns auszuwerten?

[haentschman]

:P mach ich...

Zitat:

TCustomMemo zu prüfen und dessen WantReturns auszuwerten?

...ist protected. "Auf protected...konnte nicht zugegriffen werden." Erst im TDBRichEdit und TRichEdit public...:cry:

[himitsu]

Egal ... es ist drin.

Wenn es TCustomMemo ISt, kannst du einfach "hart" nach TMemo() oder TRichEdit() casten (vollkommen egal) und dort die Public-Implementation nutzen.
Oder so wie immer, ein

Delphi-Quellcode:

type TCustomMemoAccess = class(TCustomMemo);

drüber in deine Unit und darunter dann "hart" nach TCustomMemoAccess() casten ... nun ist das Protected fast wie Public.