Ereignishandling

[Zvoni]

Milchmädchenrechnung: Was kosten 10 Minuten in der Klinik? Mal 10 (wie bei mir) mal >10.000 stationäre Patienten macht jährlich wieviel ...

Und jeder denkt, dass Ärzte so viel verdienen, weil sie lange studiert haben.......

[wodim]

Milchmädchenrechnung: Was kosten 10 Minuten in der Klinik? Mal 10 (wie bei mir) mal >10.000 stationäre Patienten macht jährlich wieviel ...

Und jeder denkt, dass Ärzte so viel verdienen, weil sie lange studiert haben.......

Naja, so einen Anmeldebogen ausfüllen kann auch nicht jeder. Ernst wurde es allerdings, als sich in unsere Maildiskussion danach ein Manager eingeschaltet hat (der sich nicht nur so nennt, sondern einer ist, als "rechte Hand" des GF) ... Zum Glück nicht wieder solche Reaktionen wie aus einer anderen Klinik vor etlichen Jahren: "Daran werden Sie nichts ändern!" Und ein anderer: "Danke für die Anregung, wir haben jetzt ein Projekt gestartet, um die Anmeldebögen der Abteilungen zu vereinheitlichen." Da hab' ich sie nicht gefragt, ob ich chinesisch rede, sie einen an der Klatsche haben, oder woran sonst es liegen könnte, dass sie mich nicht verstanden hatten.

[Zvoni]

Milchmädchenrechnung: Was kosten 10 Minuten in der Klinik? Mal 10 (wie bei mir) mal >10.000 stationäre Patienten macht jährlich wieviel ...

Und jeder denkt, dass Ärzte so viel verdienen, weil sie lange studiert haben.......

Naja, so einen Anmeldebogen ausfüllen kann auch nicht jeder. Ernst wurde es allerdings, als sich in unsere Maildiskussion danach ein Manager eingeschaltet hat (der sich nicht nur so nennt, sondern einer ist, als "rechte Hand" des GF) ... Zum Glück nicht wieder solche Reaktionen wie aus einer anderen Klinik vor etlichen Jahren: "Daran werden Sie nichts ändern!" Und ein anderer: "Danke für die Anregung, wir haben jetzt ein Projekt gestartet, um die Anmeldebögen der Abteilungen zu vereinheitlichen." Da hab' ich sie nicht gefragt, ob ich chinesisch rede, sie einen an der Klatsche haben, oder woran sonst es liegen könnte, dass sie mich nicht verstanden hatten.

..... erinnert mich irgendwie an Dr. House....

[wodim]

..... erinnert mich irgendwie an Dr. House....

Naja, nicht alles, was hinkt, ist ein Vergleich. Die "Nichtversteher" in der anderen Klinik sind ja keine Ärzte, und denen haben sie nichts zu sagen. Das sind Kapazitäten von internationalem Rang, nicht übertrieben:

https://www.krankenhaus-tutzing.de/uebe ... nikleitung

[wodim]

OnActivate --> Die Form wurde gezeichnet, und ist jetzt sichtbar. --> Achtung: OnActivate wird JEDESMAL ausgeführt, wenn die Form den Fokus erhält

Leider nicht. (Gerade getestet, wer's nicht glaubt, probier's selber.) "Leider" sage ich jetzt, weil sich immer was tun soll. Dem eingeloggten User werden bestimmte Daten angezeigt. Dann braucht er die erst mal nicht, drückt das Fenster in den "Hintergund". Wenn er's wieder vorholt, kann in der Zwischenzeit ein anderer was in der Datenbank geändert haben. Dann muss ein "Refresh" stattfinden, wie auch immer. Any ideas?

[Zvoni]

OnActivate --> Die Form wurde gezeichnet, und ist jetzt sichtbar. --> Achtung: OnActivate wird JEDESMAL ausgeführt, wenn die Form den Fokus erhält

Leider nicht. (Gerade getestet, wer's nicht glaubt, probier's selber.) "Leider" sage ich jetzt, weil sich immer was tun soll. Dem eingeloggten User werden bestimmte Daten angezeigt. Dann braucht er die erst mal nicht, drückt das Fenster in den "Hintergund". Wenn er's wieder vorholt, kann in der Zwischenzeit ein anderer was in der Datenbank geändert haben. Dann muss ein "Refresh" stattfinden, wie auch immer. Any ideas?

Nutz die Sperrvariable NUR für den Login (bzw. nur für das, was beim ERSTEN MAL ausgeführt werden soll)

Code: Alles auswählen

type
  TForm1 = class(TForm)
    ...
  private
    FActivated: Boolean;
    ...
  end;

...
procedure TForm1.FormActivate(Sender: TObject);
begin
 if not FActivated then begin
    FActivated := True;
    // Code to be executed when the form is activated for the 1st time.
    MyLogin:=TLoginForm:Create;
    MyLogin.ShowModal;
    //Erzeuge Connection, Transaction usw.
    //blablabla was sonst noch mit Login zu tun hat: Fehlerhafte Anmeldung usw.
  end;
  //Ab hier wird JEDESMAL ausgeführt, wenn Form Fokus erhält
  MyQuery.Refresh; //Oder was auch immer
  //BLablabla, was auch immer
  end;

[af0815]

OnActivate --> Die Form wurde gezeichnet, und ist jetzt sichtbar. --> Achtung: OnActivate wird JEDESMAL ausgeführt, wenn die Form den Fokus erhält

Leider nicht. (Gerade getestet, wer's nicht glaubt, probier's selber.) "Leider" sage ich jetzt, weil sich immer was tun soll. Dem eingeloggten User werden bestimmte Daten angezeigt. Dann braucht er die erst mal nicht, drückt das Fenster in den "Hintergund". Wenn er's wieder vorholt, kann in der Zwischenzeit ein anderer was in der Datenbank geändert haben. Dann muss ein "Refresh" stattfinden, wie auch immer. Any ideas?

Es gibt viele weite Event wie OnShow, OnHide,.... jede mit einem anderen Focus und einem anderen Verhalten. https://wiki.freepascal.org/Event_order/de
https://wiki.freepascal.org/Lazarus_Tut ... nt_Actions

Wobei es IMHO geringe Unterschiede zwischen den Widgetsets/Betriebssystemen geben könnte (oder ist mein Gedächnis schon veraltet ?).

[wodim]

OnActivate --> Die Form wurde gezeichnet, und ist jetzt sichtbar. --> Achtung: OnActivate wird JEDESMAL ausgeführt, wenn die Form den Fokus erhält

Leider nicht. (Gerade getestet, wer's nicht glaubt, probier's selber.) "Leider" sage ich jetzt, weil sich immer was tun soll. Dem eingeloggten User werden bestimmte Daten angezeigt. Dann braucht er die erst mal nicht, drückt das Fenster in den "Hintergund". Wenn er's wieder vorholt, kann in der Zwischenzeit ein anderer was in der Datenbank geändert haben. Dann muss ein "Refresh" stattfinden, wie auch immer. Any ideas?

Nutz die Sperrvariable NUR für den Login (bzw. nur für das, was beim ERSTEN MAL ausgeführt werden soll)

Entschudige, aber das kleine Einmaleins muss man mir nicht erklären. Wenn ich sage, "hab's getestet", dann natürlich ohne die.

[Niesi]

...

Leider nicht. (Gerade getestet, wer's nicht glaubt, probier's selber.) "Leider" sage ich jetzt, weil sich immer was tun soll. Dem eingeloggten User werden bestimmte Daten angezeigt. Dann braucht er die erst mal nicht, drückt das Fenster in den "Hintergund". Wenn er's wieder vorholt, kann in der Zwischenzeit ein anderer was in der Datenbank geändert haben. Dann muss ein "Refresh" stattfinden, wie auch immer. Any ideas?

.

Hier wird OnActivate jedesmal aufgerufen, wenn INNERHALB der Anwendung MainForm den Focus erhält.

Kann es sein, dass Dir da vorschwebt, dass dies auch im Zusammenhang mit anderen Anwendungungen passieren soll?

OnActivate.7z

(171.38 KiB) 32-mal heruntergeladen

P.S.: Sorry, falls die beiden Forms nicht auf dem Monitor erscheinen: Im Objektinspektor die Eigenschaft "Left" auf 10 setzen, dann sollte das klappen. Die waren zu weit rechts ...

[wodim]

Es gibt viele weite Event wie OnShow, OnHide,.... jede mit einem anderen Focus und einem anderen Verhalten.
https://wiki.freepascal.org/Lazarus_Tut ... nt_Actions

Ich weiß, hab' sie auch schon durchgeblättert. Ich glaube eher, mein Ansatz war falsch: Ein "Refresh" muss ausgelöst werden, wenn sich Daten geändert haben. Das muss das "dahinter liegende" Programm dem Formular "irgendwie" mitteilen. Ich denke sowieso nicht an einen direkten Zugriff auf die Datenbank, sondern an das Prinzip "Three Tier" (MVC).

[wodim]

Hier wird OnActivate jedesmal aufgerufen, wenn INNERHALB der Anwendung MainForm den Focus erhält.
Kann es sein, dass Dir da vorschwebt, dass dies auch im Zusammenhang mit anderen Anwendungungen passieren soll?

Nein, ich hab' das auch schon mit einem anderen Projekt aus dem "examples" probiert, dasselbe Ergebnis. Werd' mir dein Beispiel mal zu Gemüte führen, ob's da funktioniert? Wenn, ist wieder mal Fehlersuche angesagt ...

[Niesi]

Ich habe es jetzt auch noch mit Windoof 10 ausprobiert - das Ereignis "OnActivate" ereignet sich bei JEDEM Wechsel des Focusses, sowohl unter Linux als auch da.

Anbei noch das Testprojekt mit den Forms an "vernünftigen" Positionen ...

OnActivate.7z

(170.96 KiB) 53-mal heruntergeladen

[wodim]

Ich habe es jetzt auch noch mit Windoof 10 ausprobiert

Ok, auch möglich, dass das an meinem Debian liegt - das spinnt sowieso in mancher Beziehung. Seit Debian 10 oder 11 geht der Ruhezustand nicht mehr, und frag' nicht nach Sonnenschein, welche Klimmzüge nötig waren, damit das GUI (Mate) auf meinen zwei neuen Boards mit AMD-Grafik überhaupt lief ... Mit meinem neuen Laptop (der mit Win 11 geliefert wurde, hab' natürlich auch sofort Linux "daneben" installiert, Dual-Boot), habe ich mich auch angeschmiert: Da hat Linux zwar keine Probleme mit der Grafik, aber mit dem Netzwerk geht nix. Absolut kein Linux-Treiber dafür aufzutreiben ... Ok, wollen wir den Rahmen des Threads mal nicht zu weit dehnen.

- das Ereignis "OnActivate" ereignet sich bei JEDEM Wechsel des Focusses, sowohl unter Linux als auch da.

Aber nur da. Also wenn der Focus wechselt. Und wenn nicht? Wie gesagt: Dem Formular (resp. dem eingeloggten User) muss jede Änderung in der Datenbank, die seine Daten betreffen, sofort mitgeteilt werden, nicht erst, wenn er danach fragt. (Das "große" Ziel ist ja: Nicht nur dieser vergleichsweise simplen Anwendung "zum Ansehen", sondern automatisch ALLEN Programmen, die mit Patientendaten arbeiten. Und wenn die keine Schnittstellen haben, müssen eben welche programmiert werden. Für beide Richtungen, damit ließe sich auch der aufwändige, aber leider immer wieder nötige Datenabgleich weitestgehend automatisieren ...)

Zukunftsmusik (aber @Niesi: So viel erst mal zu deiner Frage, was mir so vorschwebt). Zurück zur Gegenwart: Da muss man also in umgekehrter Richtung vorgehen, da nützen Form-Ereignisse nichts, die müssen "von außen" initiiert werden. Ich kann doch zu keinem User sagen (oder ins Handbuch oder in die Hilfe schreiben): "Sorgen Sie dafür, dass das Fenster immer mal den Fokus kriegt, damit die Daten aktualisiert werden." Da zeigen die mir doch (bestenfalls) einen Vogel und ich brauche ihnen in diesem Leben meine Programmierkünste nie wieder anzubieten. Anderen Leuten auch nicht, wenn sich das 'rumspricht, und das würde umgehen wie ein Lauffeuer.

[wodim]

Verschoben nach: viewtopic.php?p=147989#p147989

[wodim]

Verschoben nach: viewtopic.php?p=147990#p147990