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;

[Helmi]

Mittels meiner Änderung:

Delphi-Quellcode:

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

kann ich natürlich die Entertaste nicht mehr im OnKeyPress abfragen.
Gibts trotzdem ne Möglichkeit das ggf. zu Nutzen?

[Volker Z.]

Hallo,

vielleich hilft Dir folgendes:

Delphi-Quellcode:

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

Gruß

[Helmi]

Zitat von Volker Z.:

Hallo,

vielleich hilft Dir folgendes:

Delphi-Quellcode:

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

Gruß

Wenn alles so einfach wär
Danke - so funktionierts

[Volker Z.]

Hallo,

ist gerade aufgefallen: Deine Komponente lässt das Pasten mehrzeiligen Texts zu. Wenn Du ein Return abfängst, dann vermute ich mal, dass Du an Deiner WMPaste noch ein bisserl schleifen musst.

Gruss

[Helmi]

Zitat von Volker Z.:

ist gerade aufgefallen: Deine Komponente lässt das Pasten mehrzeiligen Texts zu. Wenn Du ein Return abfängst, dann vermute ich mal, dass Du an Deiner WMPaste noch ein bisserl schleifen musst.

Theoretisch ja - aber das lass ich jetzt mal unter den Tisch fallen (ich sollte da drunter mal wieder aufräumen)

[Volker Z.]

Hallo,

Zitat:

Theoretisch ja - aber das lass ich jetzt mal unter den Tisch fallen (ich sollte da drunter mal wieder aufräumen)

Bevor da dann nix mehr gefunden wird: Wenn Dir das Standardverhalten einer TEdit (nur die erste Zeile eines Mehrzeilers einfügen) genügt, dann hilft Dir vielleicht folgendes weiter:

Delphi-Quellcode:

procedure TAlignLabeledButtonEdit.WMPaste(var Message: TWMPaste);
var
  s    : string;
  p, q : PChar;
begin
  If not FEditorEnabled or ReadOnly then
    exit;

  s := Clipboard.AsText;
  p := Pointer (s);
  q := p;
  while not (q^ in [#0, #10, #13]) do
    Inc (q);
  SetString (s, p, q - p);
  Clipboard.AsText := s;

  inherited;
end;

Gruß