TListView... Grupper... Ændre 1. Gruppenavn?

Tags:    delphi

Hvordan kan jeg ændre gruppenavnet på den første gruppe?

Jeg bruger denne script:

http://www.swissdelphicenter.ch/torry/showcode.php?id=1782

Og et TListView objekt!


Hvad gør jeg?


Hilsen

Morten



2 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
Hey

Hvis du bruger flg kode til at oprette en gruppe, er det bare at ændre variablen pszHeader til gruppenavnet.

FillChar(LvGroup, SizeOf(TLVGROUP), 0);
with LvGroup do
begin
cbSize := SizeOf(TLVGROUP);
mask := LVGF_HEADER or LVGF_ALIGN or LVGF_GROUPID;
pszHeader := 'Group 1';
cchHeader := Length(LvGroup.pszHeader);
iGroupIdL := 0;
uAlign := LVGA_HEADER_CENTER;
end;
SendMessage(ListView1.Handle, LVM_INSERTGROUP, 0, Longint(@LvGroup));

MvH

Stefan Svensson



Hey

Hvis du bruger flg kode til at oprette en gruppe, er det bare at ændre variablen pszHeader til gruppenavnet.

FillChar(LvGroup, SizeOf(TLVGROUP), 0);
with LvGroup do
begin
cbSize := SizeOf(TLVGROUP);
mask := LVGF_HEADER or LVGF_ALIGN or LVGF_GROUPID;
pszHeader := 'Group 1';
cchHeader := Length(LvGroup.pszHeader);
iGroupIdL := 0;
uAlign := LVGA_HEADER_CENTER;
end;
SendMessage(ListView1.Handle, LVM_INSERTGROUP, 0, Longint(@LvGroup));

MvH

Stefan Svensson


Det gøre jeg også... men det er når jeg har oprettet gruppe 1's navn og når jeg efter fx. 1 minut il ændre det til noget andet så kan jeg det ikke!


Hilsen Morten



t