Hint in Abhängigkeit der listbox-einträge ändern

[weltaran]

Hi!

Ich habe vor kurzem bei einem stringgrid einen dynamisch erzeugten hint mittels MouseToCell() realisiert. Jetzt möchte ich das selbe bei einer listbox machen, aber eine Funktion MouseToItem() scheint es nicht zu geben. Habt ihr eine andere (LowLevel) Möglichkeit parat?


Danke

[Leuselator]

Zitat OH zu TCustomListBox:

Zitat:

Die Methode ItemAtPos gibt den Index des Eintrags zurück, der durch die Koordinaten eines Punktes auf dem Steuerelement bezeichnet wird.

function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;

Beschreibung

Mit ItemAtPos können Sie feststellen, ob an einer bestimmten Stelle des Steuerelements ein Eintrag vorhanden ist.

Der Parameter Pos gibt in Koordinaten relativ zum Fenster den Punkt innerhalb des Steuerelements an. Wenn Pos unterhalb des letzten Eintrags liegt, bestimmt der Parameter Existing den Rückgabewert. Wenn Existing True ist, gibt ItemAtPos -1 zurück, was bedeutet, daß an diesem Punkt kein Eintrag vorhanden ist. Ist Existing False, gibt ItemAtPos den um 1 erhöhten Index des letzten Eintrags zurück.

Meintest Du sowas?

Gruß

[weltaran]

Hi!

Ja, ziemlich exakt (ich war wiedr einmal blind). Aber wie mache ich aus den bei MouseMove() übergebenen Integers X und y einen TPoint?

[Alexander]

Delphi-Quellcode:

var
 aPoint : TPoint;
begin
 aPoint.X := X;
 aPoint.Y := Y;
end;

[Leuselator]

einfacher geht es mit DerTPoint := Point(X,Y);

[weltaran]

OK, Jetzt klappts.

DANKE