Das mit dem "CreateWnd" hatte ich mal probiert, aber es hatte nicht funktioniert.
Jetzt geht es aber damit. Versuche die Fehlerquelle gerade herauszubekommen aber es geht jetzt irgendwie immer. Auch die eingestellte Breite passt sich automatisch an, wie gewünscht. Zwar etwas langsam nach einer Änderung der Schriftgröße in den Anzeigeeinstellungen aber besser als wenn es gar nicht geht
Also mal Danke. Hoffe es bleibt auch so. Listview ist so ein Thema. Auch "LVS_EX_INFOTIP" musste ich abstellen, da manchmal ein ToolTip außerhalb meiner Anwendung (Bildschirmposition X=0,Y=0) angezeigt wurde.
Bei mir schaut es jetzt so aus:
Code:
Type
TListView = Class(
Vcl.ComCtrls.TListView)
Protected
Procedure CreateWnd; Override;
End;
Procedure DisableLVToolTips(H : THandle);
Var Styles : DWord;
Begin
Styles := ListView_GetExtendedListViewStyle(H);
Styles := Styles And Not LVS_EX_INFOTIP;
ListView_SetExtendedListViewStyle(H, Styles);
End;
procedure TListView.CreateWnd;
begin
Inherited;
SetWindowTheme(WindowHandle, Nil, Nil);
ListView_SetColumnWidth(WindowHandle,0,500);
DisableLVToolTips(WindowHandle);
end;
Gruß Michael