Forum > Carbon

Lazarus RC3 for Carbon getting Range error.

(1/1)

Josh:
Hi

function TForm1.has_focus:boolean;
begin
  result:=screen.ActiveForm.Name='Form1';
end;

The above gives a range check error in the result line.
Same code works on cocoa and window

Navigation

[0] Message Index