[FMX] Wie crSQLWait los werden?

**Medium**

Tach zammen!

In meinem Programm werden in ein paar Threads Dinge aus einer Datenbank gelesen (MariaDB via MyDAC). (Auch ein paar wenige Dinge im Hauptthread.) Leider schaltet dies in schneller Abfolge immer wieder meinen Mauscursor zu crSQLWait und zurück, sodass dieser mächtig am flackern ist. Für VCL habe ich die "Lösung" gesehen, dass man Screen.Cursors[crSQLWait] := crDefault; machen kann um das global abzuschalten. In FMX aber habe ich kein vergleichbares Konstrukt gefunden - nur die cr*-Konstanten in System.UITypes, welche auch noch untypisiert sind, also auch nicht mit "böser Option" überscheibbar.

System.UITypes ins eigene Quellverzeichnis kopieren und anpassen bringt auch nichts, weil Delphi dann meckert, dass andere Units mit einer anderen Version davon compiliert wurden. Da das eine doch recht grundlegende Unit ist, habe ich den Ansatz nicht weiter verfolgt, da ich vermutlich auf diesem Wege letztlich eine Kopie von ganz FMX bräuchte...

Kann man das irgendwie anders noch erreichen? So wie es jetzt ist, bekommen meine Kunden ja nen epileptischen Anfall wenn sie 8h am Tag mit Flackercursor arbeiten sollen.

Edit: Version ist 10.2.3 Tokyo

**Der schöne Günther**

Ich kenne jetzt nur FireDAC und nicht MyDAC, aber da kann man die ganze Cursor-Geschichte einstellen, egal ob VCL, FMX oder Konsole/Keine Oberfläche.

Das macht ja keinen Sinn die Wirkung zu bekämpfen wenn man stattdessen auch an die Ursache gehen könnte...

**Medium**

Das hatte ich auch neidvoll gesehen. Leider aber dann vergebens nach einem Weg dies bei DevArt zu machen gesucht

**hoika**

Hallo,
ist das hier MyDAC?

https://forums.devart.com/viewtopic.php?t=1752

Und falls der Original-Link mal verloren geht:

You need write at any place in your project DBAccess.ChangeCursor := False; to disable SQL hourglass cursor

**Medium**

Jaaaaa!!! Du bist mein persönlicher Held der Woche! Danke!

Da haben meine Google-Wortwahl-Fähigkeiten versagt. Dieser Thread kam mir nicht unter komischerweise. Funktioniert 1a!

**hoika**

Hallo,
tja Google ist Dein bester Freund, wenn man weiß, wonach man suchen muss.

[FMX] Wie crSQLWait los werden?

[FMX] Wie crSQLWait los werden?

AW: [FMX] Wie crSQLWait los werden?

AW: [FMX] Wie crSQLWait los werden?

AW: [FMX] Wie crSQLWait los werden?

AW: [FMX] Wie crSQLWait los werden?

AW: [FMX] Wie crSQLWait los werden?

Forumregeln

Der schöne Günther Registriert seit: 6. Mär 2013 6.158 Beiträge Delphi 10 Seattle Enterprise	#2 AW: [FMX] Wie crSQLWait los werden? 7. Mär 2019, 17:29 Ich kenne jetzt nur FireDAC und nicht MyDAC, aber da kann man die ganze Cursor-Geschichte einstellen, egal ob VCL, FMX oder Konsole/Keine Oberfläche. Das macht ja keinen Sinn die Wirkung zu bekämpfen wenn man stattdessen auch an die Ursache gehen könnte...
	Zitat

Medium Registriert seit: 23. Jan 2008 3.686 Beiträge Delphi 2007 Enterprise	#3 AW: [FMX] Wie crSQLWait los werden? 7. Mär 2019, 17:38 Das hatte ich auch neidvoll gesehen. Leider aber dann vergebens nach einem Weg dies bei DevArt zu machen gesucht "When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
	Zitat

hoika Registriert seit: 5. Jul 2006 Ort: Magdeburg 8.275 Beiträge Delphi 10.4 Sydney	#4 AW: [FMX] Wie crSQLWait los werden? 7. Mär 2019, 18:09 Hallo, ist das hier MyDAC? https://forums.devart.com/viewtopic.php?t=1752 Und falls der Original-Link mal verloren geht: You need write at any place in your project DBAccess.ChangeCursor := False; to disable SQL hourglass cursor Heiko Geändert von hoika ( 8. Mär 2019 um 07:24 Uhr)
	Zitat

Medium Registriert seit: 23. Jan 2008 3.686 Beiträge Delphi 2007 Enterprise	#5 AW: [FMX] Wie crSQLWait los werden? 7. Mär 2019, 18:22 Jaaaaa!!! Du bist mein persönlicher Held der Woche! Danke! Da haben meine Google-Wortwahl-Fähigkeiten versagt. Dieser Thread kam mir nicht unter komischerweise. Funktioniert 1a! "When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
	Zitat

hoika Registriert seit: 5. Jul 2006 Ort: Magdeburg 8.275 Beiträge Delphi 10.4 Sydney	#6 AW: [FMX] Wie crSQLWait los werden? 8. Mär 2019, 07:23 Hallo, tja Google ist Dein bester Freund, wenn man weiß, wonach man suchen muss. Heiko
	Zitat