AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Per Rechtsklick Eintrag markieren oder verarbeiten

Per Rechtsklick Eintrag markieren oder verarbeiten

Ein Thema von Moombas · begonnen am 14. Nov 2018 · letzter Beitrag vom 14. Nov 2018
Antwort Antwort
Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#1

Per Rechtsklick Eintrag markieren oder verarbeiten

  Alt 14. Nov 2018, 08:28
Delphi-Version: 10.2 Tokyo
Hallo zusammen,

ich habe eine (wahrscheinlich) kurze Frage aber ich komme aktuell nicht auf eine Lösung.
Problem:
Ich möchte per Rechtsklick in eine TListBox den Eintrag, auf den ich geklickt habe verarbeiten oder markieren (und dann den markierten Eintrag verarbeiten).

Den Rechtsklick "abzufangen" ist ja kein Problem:
Delphi-Quellcode:
procedure ListBoxMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssRight in Shift) and (ListBox.itemindex <> -1) then
  begin
       
  end;
end;
Allerdings wie bekomme ich den Eintrag auf den man Rechtsgeklickt hat?
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.

Geändert von Moombas (14. Nov 2018 um 08:35 Uhr)
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Per Rechtsklick Eintrag markieren oder verarbeiten

  Alt 14. Nov 2018, 08:47
Delphi-Quellcode:
procedure TForm1.ListBoxMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  LItemPosition: TPoint;
  LItemIndex: Integer;
begin
  if (ssRight in Shift) and (ListBox.ItemIndex <> -1) then
  begin
    LItemPosition := TPoint.Create(X, Y);
    LItemIndex := ListBox.ItemAtPos(LItemPosition, True);
    if LItemIndex > -1 then
    begin
      ShowMessage('Bin da: ' + ListBox.Items[LItemIndex]);
    end;
  end;
end;
  Mit Zitat antworten Zitat
Benutzerbild von Moombas
Moombas

Registriert seit: 22. Mär 2017
Ort: bei Flensburg
525 Beiträge
 
FreePascal / Lazarus
 
#3

AW: Per Rechtsklick Eintrag markieren oder verarbeiten

  Alt 14. Nov 2018, 09:09
Danke Ich wusste es ist einfach und ich kannte es einfach nicht.
Der Weg ist das Ziel aber man sollte auf dem Weg niemals das Ziel aus den Augen verlieren.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:41 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz