AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi Draggen und klicken bei einem Objekt beides ermöglichen
Thema durchsuchen
Ansicht
Themen-Optionen

Draggen und klicken bei einem Objekt beides ermöglichen

Ein Thema von BenjaminH · begonnen am 23. Aug 2010 · letzter Beitrag vom 13. Sep 2010
Antwort Antwort
BenjaminH

Registriert seit: 14. Okt 2004
Ort: Freiburg im Breisgau
713 Beiträge
 
Turbo Delphi für Win32
 
#1

Draggen und klicken bei einem Objekt beides ermöglichen

  Alt 23. Aug 2010, 23:38
Hi,
ich hab hier ein Objekt, das
  1. auf klicken reagieren soll
  2. per Drag'n'Drop woanders hin gezogen werden können soll
sobald ich aber DragMode auf dmAutomatic habe, wird OnClick nicht mehr aufgerufen.
Gibts eine möglichkeit sowohl das Draggen, als auch das klicken zu ermöglichen?
Vielen Dank,
Benjamin
Benjamin
  Mit Zitat antworten Zitat
omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: Draggen und klicken bei einem Objekt beides ermöglichen

  Alt 23. Aug 2010, 23:47
Schaue dir mal Object.BeginDrag an.
  Mit Zitat antworten Zitat
alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#3

AW: Draggen und klicken bei einem Objekt beides ermöglichen

  Alt 24. Aug 2010, 07:27
Und dmManual.... Du musst also das dragging selbst programmieren, wie omata schon erwähnte, mit BeginDrag... EndDrag.

Ich würde auch eine Verzögerung beim Click einbauen, sodaß das dragging erst mit einer kleinen Verzögerung einsetzt. Dann kann man klicken, bevor die dragging-Logik greift.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.315 Beiträge
 
Delphi 12 Athens
 
#4

AW: Draggen und klicken bei einem Objekt beides ermöglichen

  Alt 24. Aug 2010, 07:34
Ich würde das Draggen nicht Zeitverzögert auslösen, sondern von der Mausposition abhängig machen.

Im OnMouseDown die Klickposition speichern und wenn im OnMouseMove (wärend die Maustaste noch gedrückt ist) sich die Maus ein gewisses Stückchen bewegt hat, dann das Dragging starten.
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Benutzerbild von MacGuyver
MacGuyver

Registriert seit: 9. Sep 2003
Ort: Wildeshausen
295 Beiträge
 
Turbo Delphi für Win32
 
#5

AW: Draggen und klicken bei einem Objekt beides ermöglichen

  Alt 24. Aug 2010, 07:59
Moin auch

Wenn du im MouseDown mittels BeginDrag(False) startest, muss du erst die Maus ein Stück bewegen, bis der Dragmodus beginn.

Stefan
Englisch eine Weltsprache? Zu kompliziert und der nahe Osten würde Englisch als Pflichtweltsprache nicht akzeptieren.
IDO wäre genau das Richtige: http://forum.idolinguo.de/index.php oder www.idolinguo.de
  Mit Zitat antworten Zitat
BenjaminH

Registriert seit: 14. Okt 2004
Ort: Freiburg im Breisgau
713 Beiträge
 
Turbo Delphi für Win32
 
#6

AW: Draggen und klicken bei einem Objekt beides ermöglichen

  Alt 24. Aug 2010, 10:40
Ja, das kommt der Sache schon sehr nahe.
Nur wird jetzt das klicken auch, wenn ich eigentlich nur draggen will ausgelöst.
Aber dagegen werde ich vorgehen indem ich entweder dann nur auf Doppelklick reagiere, oder statt OnClick OnMouseUp nehme.
Vielen Dank!
Benjamin
  Mit Zitat antworten Zitat
Antwort Antwort


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 17:17 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz