FIX: the debug logs on macOS, issue #2725

This commit is contained in:
rich2014 2026-01-24 18:06:55 +08:00
commit f24e4fdaa8

View file

@ -327,7 +327,10 @@ var
responder: NSResponder;
begin
form:= Screen.ActiveForm;
control:= form.ActiveControl;
if form <> nil then
control:= form.ActiveControl
else
control:= nil;
LogWrite( '>>> ' + TimeToStr(now) );
LogWrite( 'LCL:' );
LogWrite( ' ' + DbgsName(form) );