Woran kann ich merken, dass Rezise beendet ist?

[Chearly020664]

Hallo,

habe eine Form mit einem Image. Die Form ist reziseable. Das Bild wird im Hintergrund in einer Bitmap mathem. berechnet und muss nach einem Rezise neu berechnet werden. Das Ereignis OnRezise wird aber ausgelöst mit dem Beginn der Größenänderung der Form.

Ich suche verzweifelt nach einem Ereignis, dass eintritt, wenn Rezise beendet ist, damit ich die neue Berechnung des Bildes aufrufen kann.

danke - Gruß

[Redeemer]

Du willst wissen, wann der Nutzer die Maustaste loslässt? Das wüsste ich auch gerne.

Ich hab das bisher immer mit einem TTimer von einigen hundert Millisekunden als Workaround gemacht. Skizze:

OnResize:
- Mache Timer aus. // optional, dient zum Zurücksetzen des Timers
- Mache Timer an.

OnTimer:
- Mache Timer aus.
- Tu was.

[Uwe Raabe]

Vcl/fmx?

[Uwe Raabe]

OK, Delphi 7, ist klar.

Also, du kannst WMEXITSIZEMOVE im Form abfangen:

Delphi-Quellcode:

    procedure WMEXITSIZEMOVE(var Message: TMessage); message WM_EXITSIZEMOVE;

[Redeemer]

Danke. Dann muss man nur noch prüfen, ob sich die Größe geändert hat, für die man zuletzt gezeichnet hat, da das Event sonst ja auch beim Verschieben auslöst. Löst das Event auch aus, wenn das Fenster anderweitig in der Größe verändert wird (Windows+Pfeil, minimieren, maximieren, Bildschirm abgestöpselt usw.)?

[Uwe Raabe]

Aus der Doku:

Zitat:

Sent one time to a window, after it has exited the moving or sizing modal loop. The window enters the moving or sizing modal loop when the user clicks the window's title bar or sizing border, or when the window passes the WM_SYSCOMMAND message to the DefWindowProc function and the wParam parameter of the message specifies the SC_MOVE or SC_SIZE value.

Im Zweifel hilft probieren.

[Chearly020664]

Ich habe:

procedure WMEXITSIZEMOVE(var Message: TMessage);
message WM_EXITSIZEMOVE;
begin
BerechnedasBild(Sender);
end;

Zu meinen Programm-Procedures hinzugefügt und bekomme die Fehlermeldung "message --> unbekannte Anweisung"
und "BerechnedasBild --> undefinierter Bezeichner

Letzteres habe ich aber mehrmals in anderen procedures erfolgreich aufgerufen.-

Verwirrung bei mir, habe schon 13 Jahre nichts mehr mit Delphi 7 gemacht.

Grüße

[venice2]

procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
dann kannst du BerechnedasBild(Sender); verwenden

message WM_EXITSIZEMOVE; benötigst du nicht.

Delphi-Quellcode:

procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
  inherited;
  BerechnedasBild(Sender);
end;

[Chearly020664]

Code:

132 procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);

133 begin
134     inherited;
135     BerechnedasBild(Sender);
    end;

Führt jetzt beim Compilieren zu folgenden Fehlermeldungen:

(132): Undefinierter Bezeichner: 'WMEXITSIZEMOVE'
(132): ';' erwartet, aber '(' gefunden
(135): ';' erwartet, aber ')' gefunden
(135): Undefinierter Bezeichner 'BerechnedasBild'
(135): Undefinierter Bezeichner: 'Sender'

Tut mir jetzt leid, dass ich Euch mit derarttigen Trivialitäten belaste.
danke
Grüße

[haentschman]

Moin...:P

Winapi.Messages in uses vergessen? :wink:

upps... es geht ja nicht um die eigentliche Message. :wink: Hast du die procedure im private Abschnitt der Form deklariert oder nur Copy/Paste aus #8? :gruebel:

Zitat:

Ich habe:

...zeige mal die gesamte Unit.

[Chearly020664]

Code:

procedure WMEXITSIZEMOVE(var Message: TMessage); message      WM_EXITSIZEMOVE;
...
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
    ShowMessage('Just Resized');
end;

Das läuft bei mir nach einem Resize.-

Wenn ich statt ShowMessage(); meine Berechnungs-procedure aufrufe:

Code:

procedure WMEXITSIZEMOVE(var Message: TMessage); message      WM_EXITSIZEMOVE;
...
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
    BerechnedasBild(Sender);
end;

gibt es jetzt nur noch eine Fehlermeldung: Undefinierter Bezeichner 'Sender'

[Chearly020664]

Hier die ganze Unit1:

[DeddyH]

Versuch mal

Delphi-Quellcode:

procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
  inherited;
  BerechneDasBild(self);
end;

[Chearly020664]

Herzlichen dank - das funktioniert jetzt.

:oops: :roll:

[venice2]

Zitat:

Versuch mal

jep. hatte es nur kopiert und nicht drauf geachtet das es Sender in der Procedure gar nicht gibt.
Solange es nun geht. :lol: