STRG+A in DBMemo

[trockentaucher]

Ich kriegs nicht gebacken... Versuche in einem DBMemo (readonly := False) mit STRG+A alles zu markieren. Ein SelectAll über ein MnuItem funktioniert, weise ich dem MnuItem das ShortCut STRG+A zu, passiert nichts, entferne ich den ShortCut funzt auch nichts...

Muss ich beten, damit es funzt? :-)

[marabu]

Hallo,

ich weiß nicht ob es mit Beten geht, aber wenn du eine ActionList auf deine Form ziehst und darin eine SelectAllAction mit dem ShortCut STRG+A anlegst, dann hilft dir beispielsweise der folgende Code:

Delphi-Quellcode:

procedure TDemoForm.SelectAllActionExecute(Sender: TObject);
begin
  PostMessage(ActiveControl.Handle, EM_SETSEL, 0, -1);
end;

Grüße vom marabu

[trockentaucher]

Yepp, besser als beten, es funktioniert! :wink:

Danke!