Memo leer bei Klick

[Blup]

Vermutlich ist das im OnEnter-Ereignis am ehesten sinnvoll.

[Dyami]

Also habe das eben gerade ausprobiert, das OnEnter-Ereignis, aber das spricht mir nicht so zu. Verlässt du das Feld kurz und willst dann z.B. weiterschreiben, dann löscht sich ja der Inhalt.
Das will ich ja nicht
Ich bleibe beim OnDblClick

Aber danke dir Blup

[Medium]

Am Rande: Das ist ein ziemlich unübliches Verhalten einer GUI. Klingt für mich nach einer prima Möglichkeit die User in leichte Wahnsinnsausbrüche zu lenken. Ich würde entweder beim zusätzlichen Button bleiben, oder darauf vertrauen, dass "Backspace bis Anschlag", "Text mit Maus markieren und Entf drücken" sowie "Strg-A Entf" hinreichend bekannt sind.

[Dyami]

Ja das stimmt allerdings. Irgendwie hat jedes Ereignis ein kleinen Hacken, also was das Thema betrifft. Ich werde nochmal überlegen. Der zusätzliche Button ist ja schon da, dass ist ja nicht das Problem.
Naja, komischerweise kann ich im Memo aber nicht mit STRG+A arbeiten.. Dort passiert dann nämlich nichts..

[hathor]

Wenn man auf die Rechtsklick-Rückgängig-Funktion nicht verzichten will,
ist folgender Code besser:

Delphi-Quellcode:

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
Memo1.SetFocus;
Memo1.SelectAll;
Application.ProcessMessages; //muss sein!!!
Memo1.ClearSelection;
end;

[himitsu]

So reicht es nicht?

Delphi-Quellcode:

procedure TForm1.Memo1DblClick(Sender: TObject);
begin
  Memo1.Clear;
end;

Nja, es kann sein, daß man noch irgendwas initialisieren mußte, damit sowas wie Strg+A von alleine ging.

Ansonsten im OnKeyDown

Delphi-Quellcode:

procedure TfrmMain.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Shift = [ssCtrl]) and (Key = Ord('A')) then begin
    (Sender as TCustomMemo).SelectAll;
    Key := 0;
  end;
end;

[Dyami]

Danke für die Antworten, aber ich werde es erst Freitag ausprobieren können.
Dann melde ich mich nochmal ob es geht oder nicht

Aber danke euch!