gr32: Alpha Wert für TImage32 bei MouseMove ermitteln

[DGL-luke]

ok, jetzt nochmal zum mitschreiben:

Delphi-Quellcode:

var
  Alpha: Byte;

Alpha := Color32 shr 24;

ShowMessage(IntTostr(Alpha));