Hallo,

ich habe eine Frage, die bestimmt total einfach zu lösen ist. Habe auch im Inet gegooglet, aber bin wahrscheinlich blind

Ich möchte, wenn ich in ein Memo klicke, dass der Text im Memo automatisch verschwindet.
Gibt es dafür eine Funktion oder muss ich dort weiterhin mit einem Button arbeiten?


Liebe Grüße

Philipp

Hallo,

hat das Memo nicht ein onClick Ereignis?
Dort (sender as TMemo).clear sollte das tun.

Ob das sinnvoll ist sei mal dahingestellt.

Grüße
Klaus

Möchtest Du das wirklich? Ich stelle mir gerade vor, dass ich in dem Memo etwas eintippe, einen Schreibfehler bemerke, mit der Maus an die betreffende Stelle klicke... und dann von vorn beginnen darf. Falls Du es aber unbedingt haben willst, kannst Du natürlich im OnClick des Memo Memo.Clear aufrufen.

Hallo,

markieren

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
end;

Oh, einfacher als gedacht. Habe aber lieber das OnDblClick genommen
DeddyH Aussage hatte schon Sinn

Danke euch!

Vermutlich ist das im OnEnter-Ereignis am ehesten sinnvoll.

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

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.

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..

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

markieren

Delphi-Quellcode:

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