LIstview.columns. und nun die höhe

[OLLI_T]

HY Kiar!

Neuen Font setzen (der Einfachheit halber via Label1) und Neuzeichnen der Columns focieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var Wnd:HWnd; W:DWord;
begin
  Wnd:=ListView_GetHeader(LV.Handle); // Unit CommCtrl einbinden!
  SendMessage(Wnd,WM_SETFONT,Label1.Font.Handle,0);
  W:=LV.Columns[0].Width;
  LV.Columns[0].Width:=W+1;
  LV.Columns[0].Width:=W;
End;

Viel Spass damit

OLLI