Delphi World - Предотвратить изменение ширины колонки для TListView
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Предотвратить изменение ширины колонки для TListView

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

private
   FListViewOldWndProc: TWndMethod;
   procedure ListViewNewWndProc(var Msg: TMessage);
 end;

 {....}

 implementation

 uses
   CommCtrl;


 procedure TForm1.FormCreate(Sender: TObject);
 begin
   //Sichern der ursprunglichen WindowProc der Listview 
  FListViewOldWndProc := ListView1.WindowProc;

   //Subclassing: Umleiten der WindowProc auf unsere eigene Procedur 
  Listview1.WindowProc := ListViewNewWndProc;
 end;

 procedure TForm1.ListViewNewWndProc(var Msg: TMessage);
 var
   hdn: ^THDNotify;
 begin
   if Msg.Msg = WM_NOTIFY then
   begin
     hdn := Pointer(Msg.lParam);
     //Abfangen und loschen der HDN_BeginTrack Botschaft 
    if (hdn.hdr.code = HDN_BeginTrackW) or (hdn.hdr.code = HDN_BeginTrackA) then
       Msg.Result := 1
     else
       FListViewOldWndProc(Msg);
   end
   // ansonsten Botschaft an die ursprungliche WindowProc weiterreichen 
  else
      FListViewOldWndProc(Msg);
 end;

 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   //vor dem Beenden Original WindowProc wiederherstellen 
  ListView1.WindowProc := FlistViewOldWndProc;
   FListViewOldWndProc  := nil;
 end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования