Memo leer bei Klick

[Dyami]

Hallo,

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

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

[Klaus01]

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

[DeddyH]

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.

[Helmi]

Hallo,

Delphi-Quellcode:

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

[Dyami]

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

Danke euch! :)

[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 :D
Ich bleibe beim OnDblClick :P

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 :P

Aber danke euch!

[Klaus01]

.. gut auch wenn das TMemo kein Strg-A unterstützt.
Rechts reinklicken - select all müsste aber schon funktionieren.

Grüße
Klaus

[himitsu]

Bei mir geht das mit dem Strg+A von alleine. (hier im XE2)
Im Grunde sollte das ein Standardverhalten direkt von Windows sein (solange die nötigen Bibliotheken initialisiert sind und keine andere Komponente dazwischenfunkt)

Strg+Pos1
Strg+Shift+Ende

Strg drücken
Pos1 drücken und wieder loslassen
Shift drücken
Ende drücken und wieder loslassen
Strg und Shift loslassen