Edit leert sich bei Enter

[Helmi]

Zitat von Bummi:

es wird nicht leer, sondern es bricht um... mit Pfeil auf/ab kannst Du scrollen.

wenn Du das nicht willst, musst Du Deine CreateParams ändern.

Mist - ich könnt mich grad in A... beissen, weil ich da nicht selbst drauf gekommen bin
Danke für die Hilfe!

[EDIT]
Jetzt weiss ich auch woher das ES_MULTILINE kam:
Ich hab mir das mit dem Button einfügen in ein Edit von SpinEdit abgeschaut und dort ist ES_MULTILINE auch aktiv
so wie es ausschaut muss es auch aktiv bleiben, da es ohne nicht geht (also Button in Edit).

Wenn man sich aber dann das KeyPress intern vom SpinEdit anschaut, dann werden dort bestimmte Tasten "verschluckt"


Habs jetzt so gelöst:

Delphi-Quellcode:

procedure TAlignLabeledButtonEdit.KeyPress(var Key: Char);
begin
  If Key = #13 then
    Key := #0
  else
    inherited KeyPress(Key);
end;

procedure TAlignLabeledButtonEdit.CreateParams(var params: TCreateParams);
const
  Alignments: array[TAlignment] of Word = (DT_LEFT, DT_RIGHT, DT_CENTER);

begin
  inherited CreateParams(params);

  // Geerbte Parameter setzen
  params.Style := params.Style or Alignments[FAlignment] or ES_MULTILINE or
                  WS_CLIPCHILDREN;;
end;