Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
7. Jul 2006
Moin Matti,
ein Stück weiter gekommen bin ich ja.
Schau's Dir doch mal an, ob es weiterhilft.
procedure TForm1.WMNCPAINT(var Msg: TWMNCPaint);
const
DCX_USESTYLE = $10000;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
6. Jul 2006
Moin Matti,
schau Dir doch mal die Funktion GetDCEx an.
Bei mir bringt die im WMNCPAINT-Event zwar immer 0 zurück (obwohl die übergebenen Werte eigentlich stimmen sollten), aber vielleicht funktioniert es ja bei Dir.
(GetLastError meldet mir auch "Der Vorgang wurde erfolgreich durchgeführt" :gruebel:)
Mein Aufruf:
hdc := GetDCEx(self.Handle,msg.RGN,DCX_WINDOW or DCX_INTERSECTRGN);