Doppelklick verweigern, alles als Klick

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

Kann man irgendwie den Puffer bzw. das Intervall für eine Doppelklick so manipulieren, dass prakatisch auf meiner Form jeder Doppellick als zwei Klicks ankommt und es keinen Doppelklick mehr gibt?

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

IngoD7 · Beiträge: 629 D7

Windowsweit mit SetDoubleClickTime.

Nur für die eigene Anwendung weiß ich jetzt nicht.

Vielleicht kannst du aber ja auch den Doppelklick in Application.OnMessage abfangen ...?

uwewo · Beiträge: 154

Vielleicht brauche ich dazu ein konkretes Beispiel, aber kannst Du nicht einfach

markieren

Delphi-Quelltext

1:
2:
3:
4:

procedure TForm1.FormDblClick(Sender: TObject);
begin
  FormClick(Sender);
end;

?????

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

Zitat:

...f meiner Form jeder Doppellick als zwei Klicks ankommt ...

dann müsste es heißen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.FormDblClick(Sender: TObject);
begin
  FormClick(Sender);
  FormClick(Sender);
end;

was einfacheres fällt mir auch nicht ein leider...

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

Bei jedem onDblClick-Ereignis kommt der erste Klick als normales onClick an, das heißt, Jakobs wäre Doppelt-gemoppelt

(habs grad ausprobiert...)

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Robinator · Beiträge: 275 WinXP BDS 2006

JayEff hat folgendes geschrieben:

Bei jedem onDblClick-Ereignis kommt der erste Klick als normales onClick an, das heißt, Jakobs wäre Doppelt-gemoppelt

(habs grad ausprobiert...)

Hmm, das sollte aber eigentlich nicht so sein, zumindest nach meinem Verständniss

gruss, rob

_________________
erare humanum est

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

oh ja, hast recht! ich dachte doppelklick würde von Windows automatisch von einfachem Click unterschieden.

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

markieren

Delphi-Quelltext

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

var i: integer;
{...}
Procedure TForm1.FormDblClick(Sender: TObject);
Begin
    inc(i, 2);
    Label1.Caption := IntToStr(i);
End;

Procedure TForm1.FormClick(Sender: TObject);
Begin
    inc(i);
    Label1.Caption := IntToStr(i);
End;

Bei mir wird über einen Doppelklick i um 3 erhöht: einmal durch einen einzelnen, und einmal durch den doppelten Klick :gruebel:

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

Jakob Schöttl · Beiträge: 929 Erhaltene Danke: 1 Delphi 7 Professional

ja, hast schon recht...
ich habs zwar mit showmessage ausprobiert, und da geht auch beim einfachen klick schon das fenster auf

Robinator · Beiträge: 275 WinXP BDS 2006

Ich dachte, dass, sobald ein OnDblClick event zugewiesen ist, das OnClick event mit Latenz feuert und zwar nur dann, wenn im festgelegten Interval kein weiterer Klick stattgefunden hat. Es kann natürlich sein, dass ich mich irre (wenn ich mir dein Beispiel angucke, liegt es sogar ziehmlich nahe, dass ich mich Irre

)

gruß

_________________
erare humanum est

Motzi · Verfasst: Di 27.03.07 21:04

Robinator hat folgendes geschrieben:

Ich dachte, dass, sobald ein OnDblClick event zugewiesen ist, das OnClick event mit Latenz feuert und zwar nur dann, wenn im festgelegten Interval kein weiterer Klick stattgefunden hat. Es kann natürlich sein, dass ich mich irre (wenn ich mir dein Beispiel angucke, liegt es sogar ziehmlich nahe, dass ich mich Irre

)

Dem ist nicht so - auch wenn es auf den ersten Blick naheliegend erscheint. Allerdings würde dann jeder einzelne Klick (je nach Einstellung) mit recht großer Verzögerung weitergegeben werden, was dann auch wieder ziemlich blöd wäre..

Gruß, Motzi

_________________
gringo pussy cats - eef i see you i will pull your tail out by eets roots!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme