Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
23. Aug 2006
Du hast bestimmt den XP-Style im Windows aktiv. Wenn das Form keine Ecken hat sondern abgerundet ist, ist logischer weise an der oberen linken ecke bie 0, 0 nix sondern der untergrund kommt durch.
Mit
if WindowFromPoint(Point(Left + 10, Top + 10)) = Self.Handle then
klappts bei dem eingeschalteten Style. Wenn ein anderer Style mehr als 10 Pixel verschenkt gehts natürlich nicht. Du müsstest...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
23. Aug 2006
lass mal die rechte untere ecke weg obs dann geht. Du berechnest die untere rechte ecke falsch. Du musst mindestens noch 1 pixel abziehen
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
23. Aug 2006
warum addierst du zu left und top noch die hälfte der breite bzw. Höhe? liegt an der Stelle eventuell noch ein Panel auf dem Form oder etwas anderes?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by SirThornberry,
23. Aug 2006
Die Frage ist wie genau du das testen willst. Ich prüfe in den meisten fällen nur ob die linke-obere und die rechte-untere ecke sichtbar ist. Und das prüfe ich mit WindowFromPoint.