Key Preview / Ctrl+Q abfragen

[Delphi.Narium]

Für sowas nehme ich 'ne TActionList.

Der 'ne Action zuweisen.

Die hat ein Attribut ShortCut.

Dort Strg+Q eingeben und den Quelltext ShowMessage(...) dort eingeben.

Der von Dir zu erstellende Quelltext reduziert sich dann auf

Delphi-Quellcode:

 ShowMessage('SQL ' + sLastQry + #13 + #13 +
                     'Statement ' + #13 + #13 +
                     sLastSQL);

Funktioniert eigentlich immer stabil und ist im Quelltext deutlich übersichtlicher, wenn man mal mehrere ShortCuts für diverse Aktionen hat. Das wird im FormKeyUp schnell ziemlich unübersichtlich durch seine (meist) geschachtelten If-Kaskaden durch diverse if ssCtrl IN then if Key then.

Außerdem kann man die Actions auch noch Buttons und/oder Menüs zuordnen, so dass man damit schnell und flexibel viele Funktionalitäten programmieren kann und es im Quelltext trotzdem sehr übersichtlich bleibt.