Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Timer Anhalten Während Fenster Verschoben Wird (https://www.delphipraxis.net/172612-timer-anhalten-waehrend-fenster-verschoben-wird.html)

terence14 14. Jan 2013 11:52

Timer Anhalten Während Fenster Verschoben Wird
 
Hallo liebe DP-Gemeinde,

ich suche nach dem Befehl, mit dem ich feststellen
kann, ob ich gerade das Fenster meiner Anwendungen
in der Caption-Leiste mit dem Mauszeiger festhalte,
um das Fenster zu verschieben / zu bewegen. NICHT
die Größe des Fensters zu ändern!

Weil in meiner Anwendung eine TTimer-Komponente
läuft, die Enabled:=True ist, springt mir das
Fenster immer wieder in die alte Position zurück,
wenn der Timer1.Timer gerade ausgelöst wird :(

Deshalb versuche ich festzustellen, ob ich das
Fenster gerade "festhalte" um den Timer1.Enabled
in dieser Zeit auf False zusetzen.

MfG,
terence

CGEu 14. Jan 2013 12:49

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Hallo
vielleicht musst du den Timer gar nicht deaktivieren.

wie wärs damit:

Code:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Inc(nClickCount)
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Dec(nClickCount)
end;
und im Timer

Code:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if nClickCount = 0 then
  begin
    // Tu was
  end;
end;
Gruß
Christian

terence14 14. Jan 2013 13:12

AW: Timer Anhalten Während Fenster Verschoben Wird
 
@CGEu

Werd' ich gleich ausprobieren!
Danke...

MfG,
terence

Paulman 14. Jan 2013 13:29

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Funktioniert aber doch nur beim Klick auf die Form, nicht aber beim bewegen mit der Leiste, oder?

bernerbaer 14. Jan 2013 13:48

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Start der Bewegung erkennen:
Delphi-Quellcode:
procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE;


procedure TForm1.WMEnterSizeMove(var Message: TMessage) ;
begin
   Timer1.enabled:= false;
end;
Ende der Bewegung erkennen

Delphi-Quellcode:
procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;


procedure TForm1.WMExitSizeMove(var Message: TMessage) ;
begin
   Timer1.enabled:= true;
end;

terence14 14. Jan 2013 13:53

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Habe ein kleines Test Beispiel geschrieben,

funktioniert nur bei Klick in die Form,
nicht aber beim Klick auf die Caption
des Fensters, um es zu bewegen :(

Anhang: PStopTimerOnWindowMoving_2013_01_14.zip - 226.238 Bytes

@bernerbaer
Das sieht verdächtig nach Lösung meines Problems aus...
Dankeschön :)

MfG,
terence

DeddyH 14. Jan 2013 13:58

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Oder in Kombination mit dem anderen Vorschlag oben:
Delphi-Quellcode:
type
  TForm1 = class(TForm)
    ...
  private
    { Private-Deklarationen }
    FMovingOrSizing: Boolean;
    procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE;
    procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;
    ...
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if not FMovingOrSizing then
    (* Timercode ausführen *)
end;

procedure TForm1.WMEnterSizeMove(var Message: TMessage);
begin
  FMovingOrSizing := true;
end;

procedure TForm1.WMExitSizeMove(var Message: TMessage);
begin
  FMovingOrSizing := false;
end;

Paulman 14. Jan 2013 14:10

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Funktioniert doch prima, habs nur mal so getestet
Delphi-Quellcode:
type
  TForm1 = class(TForm)

  private
    { Private-Deklarationen }

    procedure WMEnterSizeMove(var Message: TMessage) ; message WM_ENTERSIZEMOVE;
    procedure WMExitSizeMove(var Message: TMessage) ; message WM_EXITSIZEMOVE;

  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WMEnterSizeMove(var Message: TMessage) ;
begin
  Form1.Color:= clGreen;
  Form1.Caption:=('hey, wo willste denn mit mir hin?');
end;


procedure TForm1.WMExitSizeMove(var Message: TMessage) ;
begin
  Form1.Color:= clRed;
  Form1.Caption:=('nu gut..');
end;

end.
Gruß
Paul

DeddyH 14. Jan 2013 14:15

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Zitat:

Zitat von Paulman (Beitrag 1198989)
Funktioniert doch prima, ...

Das hat doch auch niemand angezweifelt :gruebel:

terence14 14. Jan 2013 14:25

AW: Timer Anhalten Während Fenster Verschoben Wird
 
So, jetzt funktioniert es,
dank bernerbaer.

Danke Paulman,
danke DeddyH.

Anhang: PStopTimerOnWindowMoving_2013_01_14_okay.zip - 227.422 Bytes

MfG,
terence

DeddyH 14. Jan 2013 14:30

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Zitat:

TeddyH in DeddyH geändert :)
Thx :zwinker:

[edit]
Zitat:

Delphi-Quellcode:
if prvMouseOnFormularDown then begin
   {-do nothing here-}
end else begin

Wieso nicht einfach
Delphi-Quellcode:
if not prvMouseOnFormularDown then begin
das else braucht man dann nicht?
[/edit]

terence14 14. Jan 2013 14:40

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Zitat:

Zitat von DeddyH (Beitrag 1198993)
Zitat:

TeddyH in DeddyH geändert :)
Thx :zwinker:

[edit]
Zitat:

Delphi-Quellcode:
if prvMouseOnFormularDown then begin
   {-do nothing here-}
end else begin

Wieso nicht einfach
Delphi-Quellcode:
if not prvMouseOnFormularDown then begin
das else braucht man dann nicht?
[/edit]

Das ist natürlich richtig :)

a) es ist ein Testprogramm
b) es ist mein Stil, es so umständlich zu machen :)

MfG,
terence

DeddyH 14. Jan 2013 14:42

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Zitat:

Zitat von terence14 (Beitrag 1198995)
b) es ist mein Stil, es so umständlich zu machen :)

Naja, mein erster Gedanke als Außenstehender war wörtlich: "Häh?" :mrgreen:

stahli 14. Jan 2013 14:43

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Ich finde an der Stelle auch Exit ganz übersichtlich.
Bei Funktionen kann man sogar einen Wert mitgeben:

Delphi-Quellcode:
procedure xy;
begin
  if xyz then
    Exit;
  abc;
end;

function xy: Boolean;
begin
  if xyz then
    Exit(False);
  Result := abc;
end;

DeddyH 14. Jan 2013 14:48

AW: Timer Anhalten Während Fenster Verschoben Wird
 
"Exit" und "übersichtlich" geht IMO nur in seltenen Fällen zusammen. Aber ich will hier keinen Glaubenskrieg vom Zaun brechen.

Medium 14. Jan 2013 15:23

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Ich halte das mit den Exits so: Wenn ich sie nutze, dann nur ganz am Anfang einer Methode, mit einem kleinen Kommentar, dass hier Gültigkeitsprüfungen für Parameter etc. passieren.

Wenn es um komplexere Prüfungen geht, und Dinge, die dazu führen dass die Methode immerhin teilweise auch ausgeführt wird, arbeite ich lieber mit ein paar lokalen Variablen der Art "conditionIsValid" über die dann später verzweigt wird. Ein Exit mitten drin wird es bei mir also nicht geben, am Anfang z.B. zur Parametervalidierung helfen sie ein paar recht unübersichtliche if-Schachtelungstiefen zu vermeiden.

Was ich auch gerne mache, sind Early-Out-Szenarien der Art:
Delphi-Quellcode:
function TMyClass.IndexOfObject(someObject: TObject): Integer;
var
  i: Integer;
begin
  result := -1;
  for i := Low(FArray) to High(FArray) do
    if FArray[i] = someObject then
      Exit(i);
end;
Für sowas ist Exit einfach klasse schlank.

terence14 14. Jan 2013 18:39

AW: Timer Anhalten Während Fenster Verschoben Wird
 
Zitat:

Zitat von Medium (Beitrag 1198999)
...
Ein Exit mitten drin wird es bei mir also nicht geben, am Anfang z.B. zur Parametervalidierung helfen sie ein paar recht unübersichtliche if-Schachtelungstiefen zu vermeiden.
...

Ditto.
Das schöne am Programmieren ist doch, daß man (fast) unendlich
viele Wege einschlagen kann, um eine Aufgabe zu meistern.

Nun ist es an einem, eine übersichtliche und leicht pflegbare
Methode zu finden.

Fehler aus früheren Zeiten können helfen, oder Tipps von
der DP-Gemeinde.

MfG,
terence


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:05 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