Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by uligerhardt,
28. Aug 2009
Hallo Sprint,
danke für deinen Code. Hat in meinen kurzen Tests super funktioniert. Ich hab trotzdem noch ein bisschen dran rumgespielt und folgendes drausgemacht:function ScreenToAbsolute(const P: TPoint): TPoint;
begin
Result.X := P.X * (MAXWORD div GetSystemMetrics(SM_CXSCREEN));
Result.Y := P.Y * (MAXWORD div GetSystemMetrics(SM_CYSCREEN));
end;
procedure ClickMenuItem(hWnd:...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by uligerhardt,
21. Aug 2009
Hallo zusammen,
kann man ein TMenuItem per Code aufklappen? Ich dachte an sowas wieItem.Click;, aber das funktioniert nicht. Es löst zwar bei Items ohne Untermenüpunkte die zugeordnete Aktion aus, klappt aber keine Untermenüs aus. Hat jemand eine Idee für mich?
Ciao,
Uli.