Listbox und Popup-Menu

stigge · Beiträge: 426 WinXP Delphi 2007

Keldorn hat folgendes geschrieben:

gugg dir popup an, autopoup muß auf false stehen, wenn du das popupmenu der listbox zugewiesen hast

Delphi-Quelltext

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

procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var Pt:tpoint;
begin
  if button = mbright then
    begin
      ListBox1.ItemIndex:=ListBox1.ItemAtPos(point(x,y),true);
      getcursorpos(PT);
      PopupMenu1.Popup(pt.X,pt.y);
    end;
end;

Post über dir :wink:

Saubäär · Beiträge: 376

stigge hat folgendes geschrieben:

Hat sich geklärt:

markieren

Delphi-Quelltext

1:
2:

stelle := ListBox3.ItemAtPos(point(x,y),true);
popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);

Danke, aber ich hab noch eine Frage:
Kann man irgendwie ein spezielles Item in einer Listbox anselektieren?

Ja

markieren

Delphi-Quelltext

1:	ListBox3.Selected[3] := True;

stigge · Beiträge: 426 WinXP Delphi 2007

Saubäär hat folgendes geschrieben:

stigge hat folgendes geschrieben:

Hat sich geklärt:

markieren

Delphi-Quelltext

1:
2:

stelle := ListBox3.ItemAtPos(point(x,y),true);
popupmenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);

Danke, aber ich hab noch eine Frage:
Kann man irgendwie ein spezielles Item in einer Listbox anselektieren?

Ja

markieren

Delphi-Quelltext

1:	ListBox3.Selected[3] := True;

Nächstes Problem geklärt. Danke für die Unterstützung!

Keldorn · Verfasst: Mi 14.03.07 21:14

stigge hat folgendes geschrieben:

Post über dir :wink:

tja, da warst du schneller. Vielleicht solltest du auch 3 min länger überlegen, selber überlegen/suchen und dann nochmal fragen

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

stigge · Beiträge: 426 WinXP Delphi 2007

Keldorn hat folgendes geschrieben:

stigge hat folgendes geschrieben:

Post über dir :wink:

tja, da warst du schneller. Vielleicht solltest du auch 3 min länger überlegen, selber überlegen/suchen und dann nochmal fragen

Hätte's mir komplizierter vorgestellt. Hab's aber auch nur durch einen Post weiter oben herausgefunden

Lannes · Verfasst: Mi 14.03.07 22:09

Hallo,

da ich

Lannes hat folgendes geschrieben:

In PopupMenuPopup mit ItemAtPos das Item ermitteln, zwischenspeichern z.B. in PopupMenu.Tag und dann in deinem "AusListeentfernen1Click" auswerten.

PopupMenuPopup ins Spiel gebracht hatte, will ich mal meine Variante vorschlagen. Kein OnMouseDown, AutoPopUp auf Standard lassen, Enabled-Status des Menü-Items "löschen" wird in Abhängigkeit zu ItemIndex gesetzt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm1.AusListeentfernen1Click(Sender: TObject);
begin
  with ListBox1 do
    Items.Delete(ItemIndex);
end;

procedure TForm1.PopupMenu1Popup(Sender: TObject);
var aPoint : TPoint;
begin
  with ListBox1 do
    begin
    GetCursorPos(aPoint);
    aPoint := ScreenToClient(aPoint);
    ItemIndex := ItemAtPos(aPoint, True);
    AusListeentfernen1.Enabled := not (ItemIndex = -1);
    end;
end;

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme