Rausfinden ob eine Listbox Multiselect zulässt bzw. LB_EXTSE

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

Ich weiß, dass ich es beim erstelllen festlegen kann, aber ich will eine Unit für Listboxes schreiben und das wäre blöd wenn ich jedesmal das übergeben muss

Es kommt mir darauf an dass ich feststellenkann ob LB_EXTENDEDSEL oder LB_MULTIPLESEL im Stil ist. gibt es da nicht sowas wie WN_GETSTYLE? Dann kan ich es ja ganz einfach mit

markieren

Delphi-Quelltext

1:	if (style) or LB_EXTENDEDSEL = LB_EXTENDEDSEL then ...

Es geht darum, dass ich sonst Fehler bei der ausgabe der selektierung bekomme, weil diese zwei verschiedene Messages braucht.

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

Ehemaliges Mitglied Erhaltene Danke: 1

Ich weiß zwar nicht, was du da vor hast, aber die gesetzten Stile bekommst du mit GetWindowLong.

Tweafis · Beiträge: 647 WinXP + fbsd Delphi 5 Prof

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

function ListboxIsMultiSel(hWnd: HWND): Boolean;
var
  Style: DWORD;
begin
  Style := GetWindowLong(hWnd, GWL_STYLE);
  result :=
  ((Style and LBS_EXTENDEDSEL = LBS_EXTENDEDSEL) or
   (Style and LBS_MULTIPLESEL = LBS_MULTIPLESEL));
end;

Jetzt hab ich ne funktion, da ich ja irgendwie unterscheiden muss (beim auslesen von Selecteds), da ich ja ein array zurpckgeben und beim anderen ne Zahl. Kann man eigentlich verschiedene Sachen in einem Record zurpckgeben also so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

case Integer of
0: bla1, bla2: Integer;
2: bla1, bla2: string;
end;

Kenn ich von fürher Dos die messages war das auch irgendwie so (mit den verscheidenen teilei neiemn Record)[/delphi]

_________________
.: Es wird der Tag kommen, an dem wir es nicht mehr ändern können :.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme