[gelöst]Was tun bei: Maybe the component is processing an event?

[wennerer]

Hallo an Alle,
ich habe ein kleines Objekt mit blinkendem Text erzeugt (hat einen Timer). Ich kann das aufrufen und dann das Fenster über das x im Systemmenü schließen. Keine Meldung oder Fehler im Debuggfenster.
Das alles in Linux Mint 19.03 und Lazarus 2.0.10 r63673M FPC 3.2.0 x86_64-linux-gtk2.

Wenn ich in der KeyDown nur das Objekt schließen möchte passiert folgendes:

BlinkenderText1.png (39.63 KiB) 1332 mal betrachtet

und ich lande in der wincontrol.inc:

BlinkenderText2.png (22.89 KiB) 1332 mal betrachtet

Wenn ich das gleiche in der KeyUp mache läuft es ohne Fehlermeldung durch. Ich hab dann aber in der Debuggerausgabe folgenden Text:

Code: Alles auswählen

WARNING: TInfo.Destroy with LCLRefCount>0. Hint: Maybe the component is processing an event?
Heap dump by heaptrc unit of /home/bernd/Sprachen/Lazarus/64_bit/Test/BlinkenderText/Debug/project1
1116 memory blocks allocated : 1697065/1698792
1116 memory blocks freed     : 1697065/1698792
0 unfreed memory blocks : 0
True heap size : 1605632
True free heap : 1605632

Wenn ich es in der MouseDown mache läuft es ohne Fehler oder Meldung!

Weiss hier jemand Rat? Kleine Demo im Anhang.

Viele Grüße
Bernd

[theo]

Probier mal statt FreeAndNil

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
 if (Key=VK_RETURN) then
  begin
   if assigned(Info) then begin
    Application.ReleaseComponent(Info);
    Info:=nil;
   end;
  end;
end;    

https://lazarus-ccr.sourceforge.io/docs ... onent.html

[wennerer]

Hallo Theo,
vielen Dank für deine Antwort. Bei meinen ersten Versuchen scheint es zu klappen.
Herzlichen Dank!
Viele Grüße
Bernd

Edit: Hatte jetzt Zeit nochmal ausgiebig zu testen. Jetzt funktioniert alles wie es soll!!!

[Maik81SE]

Hallo Theo,
vielen Dank für deine Antwort. Bei meinen ersten Versuchen scheint es zu klappen.
Herzlichen Dank!
Viele Grüße
Bernd

Edit: Hatte jetzt Zeit nochmal ausgiebig zu testen. Jetzt funktioniert alles wie es soll!!!

Schaue mir das dann Mal an unter i386 an.

[theo]

Das Problem ist wahrscheinlich, dass du dem weiteren Key Handling die Komponente unter dem Hintern wegreißt, wenn du sie in "KeyDown" freigibst.
Du reagierst zwar im "TForm1" Code (dank KeyPreview) darauf, aber deine Komponenten hat ziemlich sicher den Eingabefokus.
Mit ReleaseComponent wird die Kompo erst dann freigegeben, wenn keine Messages mehr anstehen.
So ähnlich wird es sein. Vielleicht hat jemand noch eine präzisere Beschreibung, was da passiert.

[wennerer]

Hi,
also ich habe es unter Linux 32 sowie Windows 64 und 32 crosscompiliert. Es gab zumindest keine Fehlermeldung.
Unter Linux 64 und Win 32 konnte ich auch nativ testen, also mit Debugger und hatte da keinerlei Meldungen.
Falls aber jemand eine bessere Herangehensweise für meinen blinkenden Text kennt lasse ich mich gerne überzeugen .

Viele Grüße
Bernd

[theo]

@wennerer:
Damit keine Missverständnisse aufkommen:
Mein letzter Beitrag bezog sich auf die Ursachen des ursprünglichen Problems, welches ja mit "ReleaseComponent" offenbar gelöst werden konnte.