Benutzer definierte Messages Handling

[Tarry]

Zitat von omata:

Funktioniert das Beispiel bei dir?

Ja, aber ich kann es nicht zum laufen bringen in meinem eigenem Code.

[omata]

Schau dir mal die Deklaration der Konstanten an, die habe ich etwas anders gelöst.

[Tarry]

Zitat von omata:

Schau dir mal die Deklaration der Konstanten an, die habe ich etwas anders gelöst.

Meinst du, dass du die Constante (UM_RISEANDSHINE) nur einmal in der .pas Datei deklariert hast ?
Das macht keinen Unterschied, ich habs grade getestet.

[omata]

Vielleicht ist es ja diese Zeile...

Delphi-Quellcode:

procedure TFMain.FormCreate(Sender: TObject);
begin
  Self.Caption:=cAppName;
  :

[Tarry]

Zitat von omata:

Vielleicht ist es ja diese Zeile...

Delphi-Quellcode:

procedure TFMain.FormCreate(Sender: TObject);
begin
  Self.Caption:=cAppName;
  :

Hab ich auch schon uebernommen & funktioniert immer noch nicht

[SirThornberry]

Problem ist folgendes:
Mit FindWindow suchst du das Fenster welches als Caption 'Alarm Clock by Tarry91' hat.
Aller wahrscheinlichkeit findet FindWindow somit dein Application-Fenster der zuerst gestarteten Instanz.
Auf die Message reagierst du allerdings nicht beim Application-Object (dazu wäre die Komponente TApplicationEvents (oder so ähnlich) geeignet) sondern in einem anderen Fenster (deiner TMainForm-Instanz) an welche die Nachricht gar nicht geschickt wird.

[Tarry]

Zitat von SirThornberry:

Problem ist folgendes:
Mit FindWindow suchst du das Fenster welches als Caption 'Alarm Clock by Tarry91' hat.
Aller wahrscheinlichkeit findet FindWindow somit dein Application-Fenster der zuerst gestarteten Instanz.
Auf die Message reagierst du allerdings nicht beim Application-Object (dazu wäre die Komponente TApplicationEvents (oder so ähnlich) geeignet) sondern in einem anderen Fenster (deiner TMainForm-Instanz) an welche die Nachricht gar nicht geschickt wird.

?
Also die Message wird an der falschen Stelle erwarted ?
Wie kann ich das aendern ? Was muss ich aendern ?

Danke,
Thomas

[omata]

Testweise würde ich erstmal das Application.Title auskommentieren.

[Tarry]

Zitat von omata:

Testweise würde ich erstmal das Application.Title auskommentieren.

... macht keinen Unterschied

@SirThornberry : Nachdem ich die Komponente TApplicationEvents aufs Hauptformular gezogen habe (wo die Message verwarbeited wird). Was muss ich machen ? Muss die Komponente auf alle Formulare des Programms ? Was is mit den Komponenten Ereignissen ? Ich werde nicht wirklich schlau aus der Delphi Hilfe

[SirThornberry]

Bei TApplicationEvents musst du im Ereignis OnMessage überprüfen ob deine Message dabei ist. Wenn dies der Fall ist weißt du das deine Nachricht an eben direkt an die Application gesendet wurde.