GWL_STYLE

[delphinia]

Ok ich hab es nach viel MSDN lesen

Delphi-Quellcode:

const

  LVS_EX_SNAPTOGRID = $80000;
var
  lvHan: HWnd;
  L, lvStyles: DWord;
  m: integer;
begin
  lvHan := GetDesktopListView;
 // L := GetWindowLong(lvHan, GWL_EXSTYLE);



  lvStyles := SendMessage(lvHan, LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0);
  if (lvStyles and LVS_EX_SNAPTOGRID) > 0 then
ShowMessage('1');