Код:
bBrush := GetClassLong(WindowFromPoint(Mouse.CursorPos), GCL_HBRBACKGROUND);
brush.Handle:=bBrush;
Shape1.Brush.Color:=Brush.Color;
к сожалению bbrush из любого окна, даже специально мною созданного, возвращает #FFFFFF у меня виндоус7 может в этом дело? присвоение цвета тоже не работает..