lazarus:判断当前是否在IDE环境中及当前project的路径

控件设计或其他用途时，可能需判断当前是否在IDE环境：
在uses添加LazIDEIntf

var
  IsRunningInIDE: Boolean;
begin
  IsRunningInIDE := (csDesigning in ComponentState) or Assigned(LazarusIDE);
end;

在IDE状态获取当前project的路径：

  if IsRunningInIde then
  begin
     ProjectPath:=ExtractFilePath(LazarusIDE.ActiveProject.Files[0].Filename);
  end;