Doppelklick verhindern bzw. zu Einfachklick umbiegen

[litotes]

Hallo,

ich schreibe ein - mittlerweile recht umfangreiches - Programm für, ..ähm... , Anfänger (oder besser: DAUs ).

Nun will ich verhindern, dass die wie wild auf meinen Buttons doppelklicken statt einmal klicken.

Offensichtliche Lösung: Ich weise jeder Schaltfläche ein onDblclick Ereignis zu.
Aber: Das sind mittlerweile mehrere Hundert...- da sitze ich ja Stunden bzw. Tage

Geht das auch eleganter? So dass jeder Doppelklick in einen Einfachklick umgewandelt wird?


Danke schon mal für eure Hilfe!

litotes

[mkinzler]

Du kannst ja die selbe Ereignisroutine nehmen.

[bttb930]

oder bau dir einfach eine eigene komponente TMyButton die du von TButton ableitest und die bei OnDblClick automatisch OnClick aufruft. Wie das geht (Komponente bauen und registrieren) findest du garantiert als tutorial hier im forum.

[litotes]

Hi,

ähm, für die eigene Komponente ist es jetzt doch wohl zu spät - die vielen hundert Buttons sind
ja schon als TButtons drin, oder seh ich das falsch??

Zitat:

Du kannst ja die selbe Ereignisroutine nehmen.

Versteh ich jetzt nicht. Kannst du das erläutern?


Danke

Litotes

[mkinzler]

Eine Methode, welche du allen Button für Click und Doppelklick zuweist. Den gedrückten Button erhäls du im Parameter Sender.

[litotes]

Hallo,

ach so, verstehe:

d. h. unter jedem einfach und doppelklick-Ereignis steht dann:
macheinfachklick();

Aber dann muss ich ja doch in jeden Button reingehen -
komm ich wohl nich drum rum, oder?

Litotes

[mkinzler]

Oder per Routine.

[stz]

TButton hat OnDblClick von TComponent gar nicht implementiert. Daher wird bei einem Doppelclick auch zweimal OnClick ausgelöst. Bei anderen Controls, die OnDblClick implementiert haben, wird bei einem Doppelclick auch nur einmal OnClick ausgelöst. Es führt also vermutlich kein Weg dran vorbei eine eigene Ableitung von TButton zu schreiben.

Gruß
Malte

[SirThornberry]

du kannst auch eine Ableitung machen ohne alles auf deiner Form ändern zu müssen! Dazu musst du nur deine Klasse von TButton ableiten und auch TButton nennen. Dann fügst du deine unit hinter StdCtrls in die Uses ein (oder ganz ans ende) und schon wird deine TButtonKlasse verwendet