AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein GUI-Design mit VCL / FireMonkey / Common Controls Delphi gedrückte Maustaste soll sich wie Entertaste verhalten
Thema durchsuchen
Ansicht
Themen-Optionen

gedrückte Maustaste soll sich wie Entertaste verhalten

Ein Thema von TUX_der_Pinguin · begonnen am 30. Apr 2008 · letzter Beitrag vom 30. Apr 2008
Antwort Antwort
TUX_der_Pinguin

Registriert seit: 1. Jun 2005
Ort: Anholt (NRW)
609 Beiträge
 
Delphi 11 Alexandria
 
#1

Re: gedrückte Maustaste soll sich wie Entertaste verhalten

  Alt 30. Apr 2008, 14:37
Ok Ok, ich hab mich überreden lassen und es doch mal mit einem Timer versucht.

Sobald ich auf den Button klicke und die Maustaste gedrückt halte wird der Timer aktiviert
und alle 100ms wird ein Zähler erhöht, lasse ich die Taste los so wird der Timer deaktiviert.

Dies ist jetzt nur der Test, ich muß das ganze noch so umbauen das ich Items rauf bzw. runter
verschieben kann, aber das sollte ich noch hinbekommen

Delphi-Quellcode:
procedure TfrmMain.Button1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TimerMoveItems.Enabled := True;
end;


procedure TfrmMain.Button1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  TimerMoveItems.Enabled := False;
end;


procedure TfrmMain.TimerMoveItemsTimer(Sender: TObject);
begin
  Inc(Blupp);
  Label1.Caption := IntToStr(Blupp);
end;
Geht doch einfachher als ich zu Anfang gedacht habe, vielen dank für die Tipps und Anregungen.
  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:39 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-2025 by Thomas Breitkreuz