Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Schwedenbitter,
20. Sep 2017
Das stimmt! Ich wusste nicht, dass von Hause aus gilt Handled:= False;. Ich werde gleich mal den Code anpassen. Ich habe es übrigens bei mir auch mit einer Variable besser lesbar gemacht.
Allerdings ist die Lösung doch (noch) nicht perfekt:
Wenn ich jetzt ein weiteres Fenster öffne und dort mit den Cursortasten rumhantiere, dann bewegt sich munter der jeweils auf dem Hauptform befindliche,...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Schwedenbitter,
20. Sep 2017
Danke, das passt genau! Ich habe das jetzt so zusammengebaut:procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
Handled:= True;
if (ActiveControl is TButton) then
begin
case Msg.CharCode of
VK_LEFT : (ActiveControl as TButton).Left:= (ActiveControl as TButton).Left - 16;
VK_UP : (ActiveControl as TButton).Top:= (ActiveControl as...