Ich hänge mich hier mal dran.
Im Zuge der Suche nach einer Alternative zu
http://www.delphipraxis.net/1207959-post1.html versuche ich das Handling mehr oder weniger selbst zu erledigen. Da ich das nur auf besagte Groupboxen anwenden möchte, sollte es recht einfach sein.
Ich habe also inspiriert durch diesen Thread versucht festzustellen, wann der Cursor crHelp ist (also der Pfeil mit Fragezeichen):
Delphi-Quellcode:
myCurInfo.cbSize := SizeOf(tagCursorInfo);
GetCursorInfo(myCurInfo);
i := 0;
repeat
if Screen.Cursors[i] = myCurInfo.hCursor
then // -> immer gleich egal welchen Wert i hat...gibt ja auch nur einen Mauspfeil
begin
if CursorToString(Screen.Cursors) = CursorToString(crHelp)
then // -> nie gleich, vermutlich nennt VCL die Dinger halt anders
i := Screen.CursorCount + 10
// Jajaja...
else
Inc(i);
end
else
Inc(i);
until i >= Screen.CursorCount;
//CursorCount ist bei mir mit 4 recht klein...bedenkt man das es mindestens 10 verschiedene
//System-Mauspfeile gibt.
Ich habe dann zwar das
Handle des System-Cursors...aber ich komme ums verrecken nicht auf einen gescheiten Vergleich, um das Aussehen des Cursors festzustellen.
Hülfe?
Sherlock