Merkwürdiger TFontDialog

[Ghostwalker]

Servus,

ich hab folgende Funktion (abgespeckt):

Delphi-Quellcode:

function EditFont(AFont:TFont):boolean;
var
  dlg : TFontDialog;
begin
  result := false;
  dlg := VCL.Dialogs.TFontDialog.Create(NIL);
  if (dlg.Execute) then
    result := true;
  dlg.Free;
end;

Sobald ich das Teil aufrufe, semmelt mir das ganze mit einer Zugriffsverletzung beim dlg.execute.

Kann sich das einer erklären ????????

[FaTaLGuiLLoTiNe]

Schonmal versucht dem Create entweder das aufrufende Formular oder einfach Application mitzugeben?

[himitsu]

oder Screen.ActiveForm

Und dem Execute vieler VCL-Dialoge kann man auch noch ein Handle mitgeben. (der Form, vor welcher es liegen soll)
z.B. Screen.ActiveForm.Handle oder Application.MainForm.Handle (wäre aber blöd, wenn da gerade ein anderer Dialog/ShowModal aktiv ist und die MainForm sperrt) oder Self.Handle (aus einer EventMethode eines Formulars)

[Ghostwalker]

Jup....alles schon probiert.

Interressanterweise funktioniert das ganze mit einem TColorDialog.....

[MichaelT]

Geht. Allein wenn man dlg.Font:=nil setzt dann kommt bei mir eine Exception 'cannot assign nil to a TFont'

Ansonsten läuft das bei mir hier einwandfrei.

Ich gehe jetzt mal davon aus, dass du Tokyo nimmst. Arbeitest du mit Styles?

Zitat von Ghostwalker:

Servus,

ich hab folgende Funktion (abgespeckt):

Delphi-Quellcode:

function EditFont(AFont:TFont):boolean;
var
  dlg : TFontDialog;
begin
  result := false;
  dlg := VCL.Dialogs.TFontDialog.Create(NIL);
  if (dlg.Execute) then
    result := true;
  dlg.Free;
end;

Sobald ich das Teil aufrufe, semmelt mir das ganze mit einer Zugriffsverletzung beim dlg.execute.

Kann sich das einer erklären ????????

[Ghostwalker]

Sowohl mit also auch ohne Styles bekomme ich den Fehler.

Wie du siehst, weiße ich dlg.font nix zu, steht also auf dem Default-Wert des Dialogs beim erzeugen.

[EWeiss]

Zitat von Ghostwalker:

Sowohl mit also auch ohne Styles bekomme ich den Fehler.

Wie du siehst, weiße ich dlg.font nix zu, steht also auf dem Default-Wert des Dialogs beim erzeugen.

ka.. vielleicht geht das?

dlg := VCL.Dialogs.TFontDialog.Create(self);
eventuell holt er sich dann die Font Informationen aus der Main Class bzw. deiner Form.
Ist aber auch möglich das ich quatsch rede

Einen Font zuweisen bevor du den Dialog(Execute) ausführst?
dlg.Font := Form1.Font;

gruss

[Delphi.Narium]

Kann den Fehler hier nicht nachvollziehen.

Bau bitte mal ein Minimalprogramm mit reproduzierbarem Fehler und hänge die Exe hier an. (Und eventuell den Source, damit man, bei auftretendem Fehler in der Exe, es mal mit 'nem anderen Delphi kompilieren kann.)

Eventuell ist es ja kein Programmierfehler, sondern irgendwie systemabhängig. Das könnte man dann so mal testen.

Frei nach dem Motto: Kracht die Exe nur bei Dir oder bei allen, die sie mal starten.

Wer testet schreibt hier dann kurz:

Geht mit Windowsversion.

oder eben:

Geht nicht mit Windowsversion.

oder:

kompiliert mit Delphi xy, Windowsversion, Fehler tritt auf / tritt nicht auf

[MichaelT]

War allein ein Hinweis, wenn bei mir überhaupt eine Exception auftritt.

Dann brauchen wir ein Cut Down und eine Executable bei der das Problem auftritt.

Ich kann man nur erinnern, Forum Github. Es gibt einen Hinweis ganz unten auf 10.2.2.

Du sagst bei anderen Dialogen tritt das Problem nicht auf? Das kommt mir seltsam vor. Sonst würde ich auf die Registrierung der Hooks tippen.

High DPI?

Zitat von Ghostwalker:

Sowohl mit also auch ohne Styles bekomme ich den Fehler.

Wie du siehst, weiße ich dlg.font nix zu, steht also auf dem Default-Wert des Dialogs beim erzeugen.

[jaenicke]

An welcher Stelle kommt denn die Exception im Execute? Wie sieht der Stacktrace dazu aus?