Memo leer bei Klick

[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